Metrics for Bearing on a great circle

start0.0ms (0%)

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

analyze790.0ms (1.5%)

Memory

17.5MiB live, 811.3MiB allocated; 167ms collecting garbage

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
7.8%	7.8%	92%	0.2%	0%	0%	0%	9
7.8%	7.8%	92%	0.2%	0%	0%	0%	10
10.2%	10.1%	89.7%	0.2%	0%	0%	0%	11
10.2%	10.1%	89.7%	0.2%	0%	0%	0%	12

Compiler

Compiled 26 to 19 computations (26.9% saved)

sample6.9s (12.9%)

Memory

169.6MiB live, 8 306.9MiB allocated; 2.1s collecting garbage

Samples

5.5s	5 918×	1	valid
523.0ms	2 338×	0	valid

Precisions

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

ival-cos: 2.4s (42% of total)

ival-sin: 2.2s (39.7% of total)

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

adjust: 327.0ms (5.8% of total)

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

ival-sub!: 105.0ms (1.9% of total)

Bogosity

explain635.0ms (1.2%)

Memory

50.0MiB live, 814.7MiB allocated; 168ms collecting garbage

FPErrors

Click to see full error table

Ground Truth	Overpredictions	Example	Underpredictions	Example	Subexpression
71	112	(5.2397004504076905e-248 3.7542479238767997e+58 9.246648392319059e-74 5.015586094708386e+260)	0	-	`(sin.f64 (-.f64 lambda1 lambda2))`
71	112	(5.2397004504076905e-248 3.7542479238767997e+58 9.246648392319059e-74 5.015586094708386e+260)	0	-	`(cos.f64 (-.f64 lambda1 lambda2))`
1	0	-	1	(-1.1106073957863078e+70 4.5872586489905506e-157 4.047674323973131e+100 9.194755787280959e+212)	`(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))`
0	0	-	0	-	`(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))`
0	0	-	0	-	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
0	0	-	0	-	`lambda2`
0	0	-	0	-	`phi2`
0	0	-	0	-	`(*.f64 (sin.f64 phi1) (cos.f64 phi2))`
0	0	-	0	-	`(-.f64 lambda1 lambda2)`
0	0	-	0	-	`(sin.f64 phi1)`
0	0	-	0	-	`(cos.f64 phi2)`
0	0	-	0	-	`lambda1`
0	0	-	0	-	`phi1`
0	0	-	0	-	`(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))`
0	0	-	0	-	`(sin.f64 phi2)`
0	0	-	0	-	`(*.f64 (cos.f64 phi1) (sin.f64 phi2))`
0	0	-	0	-	`(cos.f64 phi1)`

Explanations

Click to see full explanations table

Operator	Subexpression	Explanation	Count
`cos.f64`	`(cos.f64 (-.f64 lambda1 lambda2))`	sensitivity	183	0
`sin.f64`	`(sin.f64 (-.f64 lambda1 lambda2))`	sensitivity	183	0

Confusion

	Predicted +	Predicted -
+	64	0
-	119	73

Precision

0.34972677595628415

Recall

1.0

Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	64	0	0
-	119	0	73

Precision?

0.34972677595628415

Recall?

1.0

Freqs

test

number	freq
0	73
2	183

Total Confusion?

	Predicted +	Predicted Maybe	Predicted -
+	1	0	0
-	0	0	0

Precision?

1.0

Recall?

1.0

Samples

401.0ms	364×	1	valid
63.0ms	148×	0	valid

Compiler

Compiled 208 to 55 computations (73.6% saved)

Precisions

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

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

ival-cos: 124.0ms (28.8% of total)

ival-atan2: 43.0ms (10% of total)

ival-sub!: 40.0ms (9.3% of total)

adjust: 18.0ms (4.2% of total)

ival-mult!: 17.0ms (3.9% of total)

preprocess49.0ms (0.1%)

Memory

-28.8MiB live, 59.8MiB allocated; 11ms collecting garbage

Iterations

Useful iterations: 1 (0.0ms)

Iter	Nodes	Cost
0	107	376
1	251	374
2	554	374
3	1316	374
4	2923	374
5	6350	374

Stop Event

1×	node-limit

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	78.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 48 to 34 computations (29.2% saved)

series43.0ms (0.1%)

Memory

24.4MiB live, 78.8MiB allocated; 10ms collecting garbage

Counts

17 → 128

Calls

Call 1

Inputs
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi2)
phi2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))

Outputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))

Calls

12 calls:

Time	Variable		Point	Expression
7.0ms	phi1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
6.0ms	phi1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
5.0ms	phi2	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
4.0ms	lambda1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))
3.0ms	lambda1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (cos phi2) phi2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)))

rewrite489.0ms (0.9%)

Memory

-141.5MiB live, 258.2MiB allocated; 729ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	571	3195
0	593	3128
1	3497	3128
0	8624	3012

Stop Event

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

Counts

145 → 196

Calls

Call 1

Inputs
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(cos.f64 phi2)
phi2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))

Outputs
(atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2))) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda1 lambda2))) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) (-.f64 lambda1 lambda2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(/.f64 (neg.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2))) (neg.f64 (+.f64 lambda1 lambda2)))
(/.f64 (neg.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))) (neg.f64 (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (.f64 lambda1 lambda1) (.f64 lambda2 lambda2)) (+.f64 lambda1 lambda2))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 phi2)))
(cos.f64 (neg.f64 phi2))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
phi2
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))) (neg.f64 (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (neg.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))) (neg.f64 (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 phi2 (neg.f64 phi1))) (sin.f64 (+.f64 phi2 (neg.f64 phi1)))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi2 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi2 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 phi1)))
(cos.f64 (neg.f64 phi1))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
phi1
(sin.f64 phi2)
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(*.f64 (cos.f64 phi2) (sin.f64 phi1))
(/.f64 (neg.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))) #s(literal -2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 (neg.f64 phi2))) (sin.f64 (+.f64 phi1 (neg.f64 phi2)))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(sin.f64 phi1)
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (neg.f64 (neg.f64 (-.f64 lambda1 lambda2))))
(cos.f64 (neg.f64 (-.f64 lambda1 lambda2)))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (cos.f64 phi2))) lambda1 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (neg.f64 (sin.f64 lambda2)))) lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) lambda1 (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda1) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))) (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))) lambda1 (.f64 (sin.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))) lambda1 (.f64 #s(literal 1 binary64) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))) lambda1 (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2)))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (neg.f64 lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2)) (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))) lambda1 (.f64 (*.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (.f64 (cos.f64 lambda2) (sin.f64 phi1)))) lambda1 (neg.f64 (.f64 (.f64 (neg.f64 (sin.f64 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))) lambda1 (.f64 (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/2 binary64)) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda2))) lambda1) (neg.f64 (sin.f64 lambda2))) lambda1 (cos.f64 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (*.f64 (fma.f64 (/.f64 lambda2 lambda1) #s(literal -1 binary64) #s(literal 1 binary64)) lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (neg.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (neg.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2))) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (neg.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2))))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda1) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (fma.f64 #s(literal -1 binary64) lambda1 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (sin.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (sin.f64 lambda1) (cos.f64 phi2) (.f64 (neg.f64 lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (sin.f64 lambda1) (cos.f64 phi2)) (.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2))) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (neg.f64 (cos.f64 lambda1)) (cos.f64 phi2) (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 phi2)) (sin.f64 lambda1))) lambda2)) lambda2 (.f64 (sin.f64 lambda1) (cos.f64 phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (cos.f64 lambda1) lambda2) #s(literal 1/6 binary64) (.f64 (sin.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
#s(approx (- lambda1 lambda2) (fma.f64 #s(literal -1 binary64) lambda2 lambda1))
#s(approx lambda2 lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (neg.f64 lambda2) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 (-.f64 (.f64 (.f64 #s(literal 1/2 binary64) lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2))) lambda2 (.f64 (sin.f64 phi2) (cos.f64 phi1))) (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))) lambda2 (.f64 (neg.f64 (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) lambda2 (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 lambda2 (cos.f64 phi2)) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2))) lambda2 (.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) lambda2) (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2)) (.f64 (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))) lambda2 (.f64 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (cos.f64 phi2))) lambda2 (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (cos.f64 lambda1) (.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (sin.f64 lambda1) lambda2) #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) #s(literal -1/2 binary64))) lambda2 (*.f64 #s(literal 1 binary64) (sin.f64 lambda1))) lambda2 (cos.f64 lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (cos.f64 phi2)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)))
#s(approx (- lambda1 lambda2) (*.f64 (neg.f64 lambda2) (fma.f64 (/.f64 lambda1 lambda2) #s(literal -1 binary64) #s(literal 1 binary64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (*.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)) (sin.f64 phi1)) (cos.f64 phi2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (fma.f64 #s(literal -1 binary64) lambda2 lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/6 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (sin.f64 phi2))) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (* (cos phi1) (sin phi2)) (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) (sin.f64 phi2) (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin phi2)) (fma.f64 (fma.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)))
#s(approx (* (cos phi1) (sin phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (.f64 #s(literal -1/2 binary64) (sin.f64 phi2))) (.f64 phi1 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 #s(literal 1/24 binary64) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
#s(approx phi1 phi1)
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 phi2) phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (.f64 (.f64 #s(literal 1/120 binary64) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi1 phi1))) (.f64 phi1 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) phi1))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (fma.f64 (.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64)) (cos.f64 phi2) (cos.f64 phi2)) phi1))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (fma.f64 (fma.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 phi2))) (*.f64 phi1 phi1) (cos.f64 phi2)) phi1))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (cos.f64 phi2))) (.f64 phi1 phi1) (.f64 #s(literal -1/6 binary64) (cos.f64 phi2))) (*.f64 phi1 phi1) (cos.f64 phi2)) phi1))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 #s(literal 1/120 binary64) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 (sin.f64 phi2) (cos.f64 phi1)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64)) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/720 binary64) #s(literal 1/24 binary64)) (.f64 phi2 phi2)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))
#s(approx phi2 phi2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (fma.f64 (.f64 #s(literal 1/2 binary64) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (cos.f64 phi1)) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (fma.f64 (fma.f64 (.f64 #s(literal -1/6 binary64) phi2) (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) phi2 (cos.f64 phi1)) phi2 (.f64 (neg.f64 (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi1))))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 (cos.f64 phi1) phi2))
#s(approx (* (cos phi1) (sin phi2)) (.f64 (fma.f64 (.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64)) (cos.f64 phi1) (cos.f64 phi1)) phi2))
#s(approx (* (cos phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 phi2 phi2) (cos.f64 phi1)) phi2))
#s(approx (* (cos phi1) (sin phi2)) (.f64 (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64)) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (cos.f64 phi1))) (.f64 phi2 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 phi1))) (*.f64 phi2 phi2) (cos.f64 phi1)) phi2))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/120 binary64)) #s(literal 1/6 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
#s(approx (sin phi2) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/5040 binary64) #s(literal 1/120 binary64)) (.f64 phi2 phi2)) #s(literal 1/6 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)) phi2))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 phi2 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi1) (.f64 (fma.f64 (.f64 (.f64 phi2 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 phi2 phi2))) (.f64 phi2 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 (.f64 (.f64 phi2 phi2) (sin.f64 phi1)) #s(literal -1/2 binary64) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) (sin.f64 phi1)) #s(literal 1/24 binary64) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 (fma.f64 (fma.f64 (.f64 (.f64 phi2 phi2) (sin.f64 phi1)) #s(literal -1/720 binary64) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1))) (.f64 phi2 phi2) (sin.f64 phi1)))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (sin phi2) (sin.f64 phi2))

eval37.0ms (0.1%)

Memory: 0.9MiB live, 55.2MiB allocated; 9ms collecting garbage
Compiler: Compiled 8 199 to 1 137 computations (86.1% saved)

prune32.0ms (0.1%)

Memory

5.8MiB live, 53.2MiB allocated; 8ms collecting garbage

Pruning

46 alts after pruning (46 fresh and 0 done)

	Pruned	Kept	Total
New	185	46	231
Fresh	0	0	0
Picked	1	0	1
Done	0	0	0
Total	186	46	232

Accuracy

90.0%

Counts

232 → 46

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	12.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	89.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	28.9%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	78.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	50.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	78.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	74.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
▶	78.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	65.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	65.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	78.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	60.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	60.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	64.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
▶	63.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
▶	68.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	48.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	44.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	44.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	45.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	65.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	69.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	48.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	47.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	50.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	63.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	46.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
▶	45.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
▶	69.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	47.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	48.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	47.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	46.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	65.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	45.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	58.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	60.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	61.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	61.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	61.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	61.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 1 564 to 1 075 computations (31.3% saved)

series800.0ms (1.5%)

Memory

45.4MiB live, 1 093.1MiB allocated; 248ms collecting garbage

Counts

287 → 1 600

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
(fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
(*.f64 lambda1 (cos.f64 phi2))
(cos.f64 lambda2)
(*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))
(neg.f64 (sin.f64 lambda2))
(sin.f64 lambda2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(neg.f64 lambda2)
(cos.f64 lambda1)
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda1)
#s(literal -1/2 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
#s(literal -1/6 binary64)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 phi1) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
#s(literal -1 binary64)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2)))
(fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))
(-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64))
(*.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2))
#s(approx (sin phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))

Outputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* 1/2 (* lambda1 (sin lambda2)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* 1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* 1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow lambda2 2) (cos phi2)))))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ (* -1/2 lambda2) (* 1/2 lambda1))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* -1/12 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 phi2))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi1 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* 1/24 (pow phi1 2))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2))))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi1 2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2))))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi1 2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* -1/720 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/24 (/ 1 (pow phi1 2))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/24 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* -1/720 (pow phi1 4))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 4))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (* -1/720 (pow phi1 2))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (* (pow phi1 2) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* -1/6 (pow phi1 3))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* (pow phi1 3) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1/5040 (pow phi1 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* -1/5040 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* -1/5040 (pow phi1 2))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* (pow phi1 2) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (- 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- 1/5040 (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* 1/2 (* (pow phi2 2) (sin lambda2))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (sin lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow phi2 2) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/720 (* (pow phi2 2) (sin lambda2))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* 1/12 (* phi1 (pow phi2 2)))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/240 (* phi1 (pow phi2 2))) (* 1/12 phi1)))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* 1/12 phi1) (* (pow phi2 2) (+ (* -1/240 phi1) (* 1/10080 (* phi1 (pow phi2 2)))))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))

Calls

12 calls:

Time	Variable		Point	Expression
93.0ms	lambda2	@	0	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) phi2 (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos phi2) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (* lambda1 (cos phi2)) (cos lambda2) (* (neg (sin lambda2)) (cos phi2)) (neg (sin lambda2)) (sin lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (neg lambda2) (cos lambda1) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (* -1/2 lambda1) -1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos phi1) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) -1 (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (* (sin phi2) phi1) -1/2) (* (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (+ (* (* phi1 phi1) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 1/120 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) 3 (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))
74.0ms	phi1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) phi2 (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos phi2) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (* lambda1 (cos phi2)) (cos lambda2) (* (neg (sin lambda2)) (cos phi2)) (neg (sin lambda2)) (sin lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (neg lambda2) (cos lambda1) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (* -1/2 lambda1) -1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos phi1) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) -1 (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (* (sin phi2) phi1) -1/2) (* (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (+ (* (* phi1 phi1) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 1/120 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) 3 (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))
71.0ms	lambda2	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) phi2 (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos phi2) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (* lambda1 (cos phi2)) (cos lambda2) (* (neg (sin lambda2)) (cos phi2)) (neg (sin lambda2)) (sin lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (neg lambda2) (cos lambda1) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (* -1/2 lambda1) -1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos phi1) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) -1 (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (* (sin phi2) phi1) -1/2) (* (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (+ (* (* phi1 phi1) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 1/120 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) 3 (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))
67.0ms	lambda1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) phi2 (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos phi2) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (* lambda1 (cos phi2)) (cos lambda2) (* (neg (sin lambda2)) (cos phi2)) (neg (sin lambda2)) (sin lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (neg lambda2) (cos lambda1) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (* -1/2 lambda1) -1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos phi1) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) -1 (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (* (sin phi2) phi1) -1/2) (* (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (+ (* (* phi1 phi1) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 1/120 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) 3 (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))
67.0ms	phi1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) phi2 (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos phi2) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (* lambda1 (cos phi2)) (cos lambda2) (* (neg (sin lambda2)) (cos phi2)) (neg (sin lambda2)) (sin lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (neg lambda2) (cos lambda1) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (* -1/2 lambda1) -1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) -1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) 1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) 1/24 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos phi1) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) -1 (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (* (* (sin phi2) phi1) -1/2) (* (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (+ (* -1/720 (* phi1 phi1)) 1/24) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (+ (* (* phi2 phi2) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (+ (* (* phi1 phi1) -1/6) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (+ (* -1/5040 (* phi1 phi1)) 1/120) -1/5040 1/120 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) 3 (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))

rewrite845.0ms (1.6%)

Memory

60.4MiB live, 1 267.8MiB allocated; 205ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	6740	75636
0	7377	72644
0	8339	70971

Stop Event

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

Counts

1 887 → 1 994

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 phi2)
(cos.f64 (-.f64 lambda1 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
(fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
(*.f64 lambda1 (cos.f64 phi2))
(cos.f64 lambda2)
(*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))
(neg.f64 (sin.f64 lambda2))
(sin.f64 lambda2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(neg.f64 lambda2)
(cos.f64 lambda1)
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda1)
#s(literal -1/2 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
#s(literal -1/6 binary64)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 phi1) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
#s(literal -1 binary64)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2)))
(fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))
(-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64))
(*.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2))
#s(approx (sin phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* 1/2 (* lambda1 (sin lambda2)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* 1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* 1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow lambda2 2) (cos phi2)))))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ (* -1/2 lambda2) (* 1/2 lambda1))))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* -1/12 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 phi2))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 (sin phi2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi1 2)) 1/2)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* 1/24 (pow phi1 2))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2))))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 1/24))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi1 2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 phi1))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi1 2)) 1/6)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6)))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* 1/120 (pow phi1 2))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2))))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 1/120))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (+ 1/120 (* -1/5040 (pow phi1 2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (cos phi1) phi2) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* -1/720 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/24 (/ 1 (pow phi1 2))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/24 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* -1/720 (pow phi1 4))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) (+ 1/720 (/ 1/2 (pow phi1 4)))))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* -1/720 (pow phi1 4))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (* -1/720 (pow phi1 2))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(hole binary64 (* (pow phi1 2) (- (* 1/24 (/ 1 (pow phi1 2))) 1/720))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* -1/6 (pow phi1 3))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* (pow phi1 3) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1/5040 (pow phi1 7))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* (pow phi1 7) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* -1/5040 (pow phi1 6))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(hole binary64 (* (pow phi1 6) (- (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) (+ 1/5040 (/ 1/6 (pow phi1 4)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* -1/5040 (pow phi1 4))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) #s(hole binary64 (* (pow phi1 4) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* -1/5040 (pow phi1 2))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(hole binary64 (* (pow phi1 2) (- (* 1/120 (/ 1 (pow phi1 2))) 1/5040))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 3) (- 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- 1/5040 (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (* 1/120 (/ 1 (pow phi1 2))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) #s(hole binary64 (* -1 (* (pow phi1 7) (- (+ 1/5040 (/ 1/6 (pow phi1 4))) (+ (* 1/120 (/ 1 (pow phi1 2))) (/ 1 (pow phi1 6))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* 1/2 (* (pow phi2 2) (sin lambda2))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (sin lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (sin lambda2)) (* (pow phi2 2) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/720 (* (pow phi2 2) (sin lambda2))))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* 1/12 (* phi1 (pow phi2 2)))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/240 (* phi1 (pow phi2 2))) (* 1/12 phi1)))))))
#s(approx (* (* (sin phi2) phi1) -1/2) #s(hole binary64 (* phi2 (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* 1/12 phi1) (* (pow phi2 2) (+ (* -1/240 phi1) (* 1/10080 (* phi1 (pow phi2 2)))))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi1 phi2)))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* -1/6 (* phi1 (pow phi2 2)))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* 1/120 (* phi1 (pow phi2 2)))))))))
#s(approx (* (sin phi2) phi1) #s(hole binary64 (* phi2 (+ phi1 (* (pow phi2 2) (+ (* -1/6 phi1) (* (pow phi2 2) (+ (* -1/5040 (* phi1 (pow phi2 2))) (* 1/120 phi1)))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 phi2))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))

Outputs
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
phi1
(sin.f64 phi2)
phi2
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(sin.f64 phi1)
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))))
(fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
(+.f64 (.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2)) (*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))
(*.f64 lambda1 (cos.f64 phi2))
(sin.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 lambda2)
(*.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2))
(neg.f64 (sin.f64 lambda2))
(cos.f64 (+.f64 lambda2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))
(+.f64 (*.f64 (cos.f64 lambda2) lambda1) (neg.f64 (sin.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1))
(neg.f64 lambda2)
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 lambda1)
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(+.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2)))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))
(*.f64 #s(literal -1/2 binary64) lambda1)
#s(literal -1/2 binary64)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(+.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2) (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1)) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(+.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1) (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(+.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2))) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
#s(literal -1/6 binary64)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 #s(approx (- lambda1 lambda2) lambda1) phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) lambda1) phi2))) #s(literal 2 binary64))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)) phi2))) #s(literal 2 binary64))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)) phi2)) (sin.f64 (+.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)) phi2))) #s(literal 2 binary64))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)))
#s(approx (- lambda1 lambda2) (*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))
(*.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2)
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
#s(literal 1 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi2 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
#s(literal 1/24 binary64)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 phi1) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
#s(literal -1 binary64)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (cos.f64 (+.f64 (-.f64 lambda1 lambda2) phi2)) (cos.f64 (-.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2)))
(fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))
(+.f64 (.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1) (sin.f64 phi2))
(-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64))
(*.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1)) #s(literal 1/2 binary64))
(.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/720 binary64) (*.f64 phi1 phi1) #s(literal 1/24 binary64))
(+.f64 (.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1)) #s(literal 1/24 binary64))
#s(literal -1/720 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)))
#s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))
(.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2)
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(/.f64 (+.f64 (cos.f64 (+.f64 lambda1 phi2)) (cos.f64 (-.f64 lambda1 phi2))) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2))
#s(approx (sin phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64)) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2))
#s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1))
(.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)
(fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1)) #s(literal 1 binary64))
(-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1)) #s(literal 1/6 binary64))
(.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (*.f64 phi1 phi1))
(fma.f64 #s(literal -1/5040 binary64) (*.f64 phi1 phi1) #s(literal 1/120 binary64))
(+.f64 (.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1)) #s(literal 1/120 binary64))
#s(literal -1/5040 binary64)
#s(literal 1/120 binary64)
#s(literal 1/6 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1)))
(fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))
(+.f64 (*.f64 (sin.f64 lambda1) lambda2) (cos.f64 lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(fma.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (neg.f64 (-.f64 lambda1 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (.f64 (sin.f64 (neg.f64 (-.f64 lambda1 lambda2))) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (neg.f64 (-.f64 lambda1 lambda2))) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(fma.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (-.f64 lambda1 lambda2))
(+.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(/.f64 (-.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (cos.f64 phi2) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (cos.f64 phi2) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (cos.f64 phi2) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (cos.f64 phi2) (sin.f64 phi1))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) #s(literal 2 binary64)))))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(fma.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
(sin.f64 (+.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 phi1)))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (cos.f64 phi1)) (.f64 (cos.f64 phi2) (sin.f64 phi1)))
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(fma.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 phi1)
(+.f64 (.f64 (sin.f64 phi1) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(/.f64 (+.f64 (sin.f64 (-.f64 phi2 phi1)) (sin.f64 (+.f64 phi2 phi1))) #s(literal 2 binary64))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(fma.f64 (sin.f64 (neg.f64 phi2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 (neg.f64 phi2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (.f64 (sin.f64 (neg.f64 phi2)) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 (neg.f64 phi2)) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 phi2)
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) phi2)) (sin.f64 (+.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))) phi2))) #s(literal 2 binary64))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(+.f64 (.f64 lambda1 lambda1) (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(+.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
(/.f64 (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 lambda1 lambda2))) #s(literal 2 binary64))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(/.f64 (+.f64 (sin.f64 (-.f64 (-.f64 lambda1 lambda2) phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) phi2))) #s(literal 2 binary64))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(.f64 #s(literal -2 binary64) (.f64 (sin.f64 (/.f64 (-.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))) (sin.f64 (/.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)))))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(sin.f64 (+.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (+.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))) (/.f64 (PI.f64) #s(literal 2 binary64))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* lambda1 (cos phi2)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (sin lambda1) lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (* -1/2 lambda1) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 lambda2)))))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
#s(approx (neg (cos lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/24 binary64))))) #s(literal 1 binary64)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* (cos lambda2) lambda1) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(literal -1 binary64))
#s(approx (- (/ lambda1 lambda2) 1) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (neg lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (neg (- lambda1 lambda2)) lambda2)
#s(approx (neg (- lambda1 lambda2)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (pow lambda1 3) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 (+.f64 lambda1 lambda2) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 lambda2) (*.f64 lambda1 lambda2))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda2)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))
#s(approx (neg (cos lambda1)) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) lambda1)
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (neg (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (neg (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 lambda2 lambda1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) (pow.f64 lambda1 #s(literal 3 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 lambda2))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 phi2 lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1)))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (+.f64 (/.f64 lambda2 lambda1) (/.f64 phi2 lambda1))) #s(literal 1 binary64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (cos.f64 phi2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (cos.f64 phi2)))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 phi2)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (cos.f64 phi2) (.f64 #s(literal 1/5040 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) lambda1)
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ (* (cos lambda2) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (sin.f64 lambda1))
#s(approx (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (* -1/2 lambda2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) lambda2 (*.f64 #s(literal 1/12 binary64) lambda1)))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/12 binary64) lambda1)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) lambda1 (.f64 #s(literal 1/4320 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (cos lambda2) lambda1) lambda1)
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (neg (- lambda1 lambda2)) (-.f64 lambda2 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 lambda1))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (pow lambda2 3) (pow.f64 lambda2 #s(literal 3 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda1 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda2 (+.f64 lambda1 lambda2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda1)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (sin.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (neg (- lambda1 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (pow.f64 lambda2 #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(literal 1 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 phi2 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (+.f64 (/.f64 lambda1 lambda2) (/.f64 phi2 lambda2))) #s(literal 1 binary64))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))) lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin.f64 phi2))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi1) phi2) phi2)
#s(approx (* (cos phi1) phi2) (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))
#s(approx (* (cos phi1) phi2) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
#s(approx (* (cos phi1) phi2) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (.f64 #s(literal 1/24 binary64) phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (sin.f64 phi2))
#s(approx (* -1 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi2) phi1) -1/2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))))
#s(approx (* (sin phi2) phi1) (*.f64 phi1 (sin.f64 phi2)))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) #s(literal 1/24 binary64))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) phi1)
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) phi1)
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64)))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64)))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) #s(literal 1/120 binary64))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (+.f64 #s(literal 1/120 binary64) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 phi1 (-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (/ (PI) 2)) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (sin.f64 phi2))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 phi1 (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (sin (+ phi1 (/ (PI) 2))) (cos.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (cos phi1) phi2) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (sin.f64 phi2) (pow.f64 phi1 #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) 1/2) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (* (+ (* -1/720 (* phi1 phi1)) 1/24) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* -1/720 (* phi1 phi1)) 1/24) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* (* phi1 phi1) -1/6) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 7 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (*.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 6 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) (*.f64 (pow.f64 phi1 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 4 binary64))))
#s(approx (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) (.f64 (pow.f64 phi1 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (*.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* -1/5040 (* phi1 phi1)) 1/120) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) #s(literal 1/5040 binary64))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
#s(approx (+ phi1 (/ (PI) 2)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (* (+ (* (* phi1 phi1) -1/6) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 #s(literal 1/5040 binary64) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (*.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
#s(approx (* (+ (* (- (* (+ (* -1/5040 (* phi1 phi1)) 1/120) (* phi1 phi1)) 1/6) (* phi1 phi1)) 1) phi1) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 7 binary64)) (-.f64 (+.f64 #s(literal 1/5040 binary64) (/.f64 #s(literal 1/6 binary64) (pow.f64 phi1 #s(literal 4 binary64)))) (fma.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 6 binary64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx phi2 phi2)
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/720 binary64) (sin.f64 lambda2)))))))))))))
#s(approx (* lambda1 (cos phi2)) lambda1)
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* (neg (sin lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)))))))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi1 phi2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (sin phi2) phi1) -1/2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
#s(approx (* (* (sin phi2) phi1) -1/2) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/12 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) phi1) -1/2) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/12 binary64) phi1))))))
#s(approx (* (* (sin phi2) phi1) -1/2) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) phi1 (.f64 #s(literal 1/10080 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))))
#s(approx (* (sin phi2) phi1) (*.f64 phi1 phi2))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 #s(literal -1/6 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 #s(literal 1/120 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (* (sin phi2) phi1) (.f64 phi2 (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) phi1))))))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) phi2)
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (*.f64 (sin.f64 phi1) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (cos phi2)) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (fma.f64 #s(literal -7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (neg phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos.f64 phi2))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/6) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (/.f64 lambda1 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda2 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda1 phi2))) (/.f64 lambda2 phi2))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (* (+ (* (* phi2 phi2) -1/6) 1) phi2) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) phi2)) #s(literal 1 binary64)))))

eval2.0s (3.7%)

Memory: 86.0MiB live, 2 752.9MiB allocated; 1.5s collecting garbage
Compiler: Compiled 429 323 to 21 760 computations (94.9% saved)

prune474.0ms (0.9%)

Memory

17.0MiB live, 944.1MiB allocated; 179ms collecting garbage

Pruning

145 alts after pruning (144 fresh and 1 done)

	Pruned	Kept	Total
New	8 057	144	8 201
Fresh	0	0	0
Picked	45	1	46
Done	0	0	0
Total	8 102	145	8 247

Accuracy

99.9%

Counts

8 247 → 145

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	28.8%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	10.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	15.5%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	13.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	81.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	89.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	71.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	71.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	61.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
▶	80.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	79.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	76.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	75.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	56.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
▶	54.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	53.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	82.3%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	80.9%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	24.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	27.2%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	78.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	40.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	45.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	45.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	48.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	45.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	39.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	44.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	30.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
▶	28.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	45.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	13.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	65.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	68.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	78.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
▶	70.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
▶	42.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	68.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
▶	69.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	44.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
▶	40.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	49.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	32.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	47.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	19.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	36.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	69.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	68.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	45.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
▶	63.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
▶	43.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
▶	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
▶	46.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	60.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	60.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	55.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	59.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	53.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	48.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	46.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	34.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	58.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	58.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	45.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	63.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	38.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
▶	38.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
▶	69.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
▶	59.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	41.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
✓	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	48.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
▶	48.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
▶	28.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
▶	40.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
▶	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	29.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
▶	31.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	27.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
▶	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
▶	45.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
▶	29.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
▶	27.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	39.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	48.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	28.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	47.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	44.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	47.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	46.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	29.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	14.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	63.0%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	65.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	57.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	36.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	45.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	37.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	41.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	42.0%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	41.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	33.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	37.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	61.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
▶	36.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	34.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	35.0%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	37.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	45.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	28.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
▶	28.0%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	32.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	39.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	39.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	48.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	40.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	30.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	31.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	56.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
▶	60.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	50.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	58.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
▶	60.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
▶	61.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
▶	60.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	38.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	29.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	41.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	48.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	30.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	49.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	39.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	44.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	45.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	50.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	46.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	45.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	41.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Compiler

Compiled 6 190 to 4 343 computations (29.8% saved)

series1.4s (2.5%)

Memory

22.2MiB live, 2 429.8MiB allocated; 410ms collecting garbage

Counts

740 → 3 533

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))
#s(literal -1 binary64)
(*.f64 lambda2 (cos.f64 phi2))
lambda2
(cos.f64 phi2)
phi2
(*.f64 lambda1 (cos.f64 phi2))
lambda1
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 phi2 (cos.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
(cos.f64 lambda1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sin.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(literal 1 binary64)
(.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))
#s(literal -1/6 binary64)
(*.f64 #s(literal 1/2 binary64) lambda2)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
(pow.f64 lambda1 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))
(cos.f64 lambda2)
(/.f64 (sin.f64 lambda2) lambda1)
(sin.f64 lambda2)
(*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1)))
(fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(*.f64 lambda2 (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
#s(literal -1/2 binary64)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(*.f64 lambda2 (cos.f64 lambda1))
(*.f64 #s(literal -1 binary64) (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(neg.f64 (sin.f64 lambda2))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
(+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
(.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))
(/.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))
(*.f64 phi1 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
(neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(pow.f64 phi1 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
(*.f64 phi1 (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2))
#s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))
(+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(*.f64 lambda1 (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2))
(sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 #s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
(.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (sin.f64 phi1) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
(*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
(+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
(/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)
(pow.f64 lambda2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx ( (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2)))
(*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))

Outputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (* (sin phi1) (sin (neg lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* 1/2 (* (cos (neg lambda2)) (sin phi1))))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* -1 (/ (sin lambda2) (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (sin lambda2) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (* 1/4 (pow lambda2 2)) 1/2))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2))) 1/2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* 1/4 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/4 lambda2))))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* 1/4 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) lambda2)) (* 1/4 lambda2))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/4 lambda2) (* (pow lambda1 2) (+ (* -1/48 lambda2) (* 1/1440 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* 1/24 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) lambda2)) (* 1/24 lambda2))))))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* 1/6 (pow lambda1 2)) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* -1/120 (pow lambda1 2)))) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* (pow lambda1 2) (- (* 1/5040 (pow lambda1 2)) 1/120)))) 1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) lambda2)) (* 1/2 lambda2))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* 1/2 lambda2) (* (pow lambda1 2) (+ (* -1/24 lambda2) (* 1/720 (* (pow lambda1 2) lambda2)))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/12 (* lambda1 (pow lambda2 2))) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* 1/12 (* (pow lambda1 2) lambda2))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/240 (* (pow lambda1 2) lambda2)) (* 1/12 lambda2)))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/12 lambda2) (* (pow lambda1 2) (+ (* -1/240 lambda2) (* 1/10080 (* (pow lambda1 2) lambda2))))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda1 (sin (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* 1/2 (* (cos phi2) (cos (neg lambda2)))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (sin (neg lambda2))))) (* phi1 (cos (neg lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (sin (neg lambda2)))) (* -1/2 (* lambda1 (* phi1 (cos (neg lambda2))))))) (* phi1 (cos (neg lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* phi1 (cos (neg lambda2)))) (* 1/6 (* lambda1 (* phi1 (sin (neg lambda2))))))))) (* phi1 (cos (neg lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1/2 (* (cos lambda2) (sin phi1))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* 1/2 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/720 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/2 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/720 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* 1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 lambda1)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (* lambda1 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (* lambda1 (+ (* -1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg lambda2)) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (pow lambda2 2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (+ (* lambda1 lambda2) (pow lambda2 2)) lambda1)))
#s(approx (/ (pow lambda2 2) lambda1) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2)))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (* -1 (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* 1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2))))) (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI))))) (* -1/6 (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/6 (* (cos phi2) (cos (neg lambda2))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ lambda2 (pow lambda1 3))) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (* -1 (cos lambda2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 (+ lambda2 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (+ lambda2 (/ (pow lambda2 2) lambda1))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* -1 (/ (- (/ lambda2 lambda1) 1) lambda1)) (* 1/2 lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))) lambda1))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (+ 1 (* -1/2 (pow lambda2 2))) lambda1)))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* 1/2 (/ (pow lambda2 2) lambda1)))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1 lambda2) (/ 1 lambda1)) lambda1)) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 lambda1)))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (* lambda2 (cos phi2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* 1/2 lambda2) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/2 (/ 1 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* lambda2 (+ (* -1/2 lambda1) (* (pow lambda1 2) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* -1/12 (* (pow lambda1 2) lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 1))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* lambda2 (+ (* -1/2 lambda2) (* 1/2 lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* -1/12 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/12 (* lambda1 (pow lambda2 2))) (* 1/2 lambda1)))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* 1/2 lambda1) (* (pow lambda2 2) (+ (* -1/12 lambda1) (* 1/240 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* 1/2 lambda1) (* (pow lambda2 2) (+ (* -1/12 lambda1) (* (pow lambda2 2) (+ (* -1/10080 (* lambda1 (pow lambda2 2))) (* 1/240 lambda1)))))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 lambda2))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* 1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* (pow lambda2 2) (+ (* -1/120 (* lambda1 (pow lambda2 2))) (* 1/6 lambda1)))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* (pow lambda2 2) (+ (* 1/6 lambda1) (* (pow lambda2 2) (+ (* -1/120 lambda1) (* 1/5040 (* lambda1 (pow lambda2 2)))))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (sin lambda1)))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi2))))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (sin lambda1))) (* -1/2 (* phi1 phi2))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* phi1 (sin lambda1))) (* phi1 (cos lambda1)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (cos lambda1)))) (* phi1 (sin lambda1)))) (* phi1 (cos lambda1)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (cos lambda1))) (* -1/6 (* lambda2 (* phi1 (sin lambda1)))))) (* phi1 (sin lambda1)))) (* phi1 (cos lambda1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* 1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* 1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* 1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* 1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* lambda2 (+ (* -1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 1))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* 1/120 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/5040 (* lambda1 (pow lambda2 2))) (* 1/120 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))) (* lambda2 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* -1 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))) (* lambda2 (+ (* -1 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* lambda2 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (+ (* lambda2 (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow lambda2 2) (sin phi1))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow lambda2 2) (sin phi1))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* lambda2 (+ 1 (/ lambda2 lambda1)))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1/6 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/120 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/120 (sin (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (* (cos lambda1) (cos phi2)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) 1))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (* 1/2 lambda1)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/6 (/ lambda1 lambda2))))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (cos lambda1)) (/ (cos lambda1) (pow lambda2 2))) (* -1 (/ (sin lambda1) lambda2))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda2 (+ lambda1 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 (/ (pow lambda1 2) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (pow lambda1 2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2))))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ 1 (* -1/6 (pow lambda1 2))) lambda2)) (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/6 (/ lambda1 lambda2)) 1/2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (sin lambda1) lambda2)) (* 1/2 (cos lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (sin (* -1 lambda2))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda1 (sin (* -1 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (* -1 (/ (- (* -1 lambda1) (/ 1 lambda2)) lambda2)) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1/2 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* -1 (/ (+ 1 (* -1/2 (pow lambda1 2))) lambda2)))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* 1/2 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (* -1 lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (* -1 lambda2)) (sin phi1))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/6 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (cos (- lambda1 lambda2))) (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 phi2))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos phi2) (cos (neg phi2))))) (* 1/2 (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* 1/2 (+ (cos phi2) (cos (neg phi2)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (+ (cos phi2) (cos (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* 1/2 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (cos (neg phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* -1/2 (* phi1 (sin (neg phi2)))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* -1/6 (* phi1 (cos (neg phi2)))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (cos phi2)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (cos phi2))))))))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi2))
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* -1/2 (* phi1 (cos (neg (+ phi2 (* 1/2 (PI))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/120 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (sin phi2)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (* -1/2 (* phi1 phi2)) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 phi1))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (* -1/6 (pow phi1 2)) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (pow phi1 2) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (sin phi2)))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 1))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi1 2))) (pow phi1 2))))
#s(approx (/ 1 (pow phi1 2)) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (* phi1 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))) (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/2 (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (* 1/2 (PI)))) (* 1/5040 (sin (* 1/2 (PI))))))) (* 1/2 (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (+ (* -1/6 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (+ (* -1/6 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* 1/120 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/5040 (sin (* 1/2 (PI)))) (* 1/5040 (sin (* 1/2 (PI))))))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (sin (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/6 (* phi1 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi1 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi1 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (cos (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* -1/2 (* phi1 (sin (+ phi2 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* phi1 (+ (* -1/2 (sin (+ phi2 (PI)))) (* -1/6 (* phi1 (cos (+ phi2 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi2 (PI))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (+ phi2 (PI)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (- (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi2))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) phi2)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* 1/6 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* 1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3)))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 1/2 (pow (cos (- lambda1 lambda2)) 3))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* 1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -13/120 (pow (cos (- lambda1 lambda2)) 3)) (* 41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3)))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* 13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (pow (cos (- lambda1 lambda2)) 3)))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow phi1 3)))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* 13/120 (pow phi1 2)) 1/2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 13/120 (* -41/3024 (pow phi1 2)))) 1/2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos phi2) 2))) (* 2/45 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* 1/120 (* (cos phi2) (cos (neg lambda2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* -1/6 (* (pow phi1 2) (cos (neg lambda2))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* 1/120 (* (pow phi1 2) (cos (neg lambda2))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (neg lambda2)))) (* 1/120 (cos (neg lambda2)))))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* 2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (/ (* (cos phi2) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/240 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/720 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/5040 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (- phi1 phi2))))
#s(approx (- phi1 phi2) #s(hole binary64 phi1))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (+ phi1 phi2))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi1))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1)))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 phi2) (/ phi2 (pow phi1 2))) (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* -1/6 (pow phi1 3))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* (pow phi1 3) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (- (/ 1 (pow phi1 2)) 1/2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (+ phi2 (PI))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (+ (/ phi2 phi1) (/ (PI) phi1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg (+ phi2 (* -1 phi1))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi2 (* -1 phi1)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (cos (- lambda1 lambda2)) (* -1 (/ phi2 phi1))) phi1)) (* -1/2 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 phi2) (/ (cos (- lambda1 lambda2)) phi1))))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* -1 (* (pow phi1 3) (- 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi2 (PI)) (* -1 phi1)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (PI)) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (* 1/24 lambda1))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (+ (* 1/24 lambda1) (* (pow phi2 2) (+ (* -1/720 lambda1) (* 1/720 lambda2)))))))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* -1/2 (* lambda2 (pow phi2 2))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* (pow phi2 2) (+ (* -1/2 lambda2) (* 1/24 (* lambda2 (pow phi2 2))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* (pow phi2 2) (+ (* -1/2 lambda2) (* (pow phi2 2) (+ (* -1/720 (* lambda2 (pow phi2 2))) (* 1/24 lambda2))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* 1/2 (* phi2 (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/2 (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* -1 (* phi2 (cos phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/6 (* phi2 (cos phi1))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (cos phi1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (sin phi1)) (* -1/6 (* phi2 (cos phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (* 1/2 (PI))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (sin (- phi1 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (- phi1 (* 1/2 (PI)))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (- phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (* 1/2 (PI)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 1))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1 (pow phi2 4)) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) #s(hole binary64 (/ 1/2 (pow phi2 2))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* 1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (cos (- lambda1 lambda2)))) (* 1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* 1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/24 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* -1/6 (pow phi2 2)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (/ phi2 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* 1/2 (* phi2 (cos (- lambda1 lambda2)))) (/ 1 phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* phi2 (+ (* -1/6 (/ phi2 phi1)) (* 1/2 (cos (- lambda1 lambda2))))) (/ 1 phi1))))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ phi2 phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* -1/6 (/ (pow phi2 2) phi1)) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* 1/120 (/ (pow phi2 2) phi1)) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/5040 (/ (pow phi2 2) phi1)) (* 1/120 (/ 1 phi1)))) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* 1/2 (* phi2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* phi2 (+ (* 1/2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))) (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* 1/2 (* phi2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* phi2 (+ (* 1/6 (* phi2 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/2 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/720 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow phi2 2))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow phi2 2))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/720 (* phi1 (pow phi2 2))) (* 1/24 phi1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* -1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (- (* 1/2 (PI)) phi1)))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (cos (+ phi1 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* -1/2 (* phi2 (sin (+ phi1 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* phi2 (+ (* -1/2 (sin (+ phi1 (PI)))) (* -1/6 (* phi2 (cos (+ phi1 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* phi2 (- (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (+ (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (sin phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (sin phi1) 2))) (* 1/3 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/24 (* (cos (neg lambda2)) (sin phi1))))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (/ (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (* (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 2))) (/ (* (cos phi1) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1))))))) (* (pow (cos (- lambda1 lambda2)) 2) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/240 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/720 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/5040 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos lambda2) (sin lambda1))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/2 (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* -1 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2))))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ phi1 phi2) (+ 1 (* 1/2 (/ (PI) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 1/24))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- 1/24 (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (+ 1/24 (/ 1 (pow phi2 4)))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi2 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/2 phi1)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (+ (/ phi1 phi2) (/ (PI) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (+ phi1 (* -1 phi2)))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi1 (* -1 phi2)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (* 1/2 (pow phi1 2)) 1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) 1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 phi1) (/ (cos (- lambda1 lambda2)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi1 (PI)) (* -1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (PI)) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))

Calls

12 calls:

Time	Variable		Point	Expression
198.0ms	lambda1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) -1 (* lambda2 (cos phi2)) lambda2 (cos phi2) phi2 (* lambda1 (cos phi2)) lambda1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) -1/6 (* 1/2 lambda2) 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (cos lambda2) (/ (sin lambda2) lambda1) (sin lambda2) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) -1/2 (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (neg (sin lambda2)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (* -1/2 (* lambda2 (sin lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (* -1/2 (* lambda1 (sin (neg lambda2)))) (* lambda1 (sin (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) 1/24 (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (* phi1 (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (+ 1 (* -1/6 (pow phi1 2))) (* -1/6 (pow phi1 2)) (pow phi1 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* 1/2 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (cos (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) 3 (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow (cos phi2) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (* -1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (pow lambda2 2) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (* -1 lambda2) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
120.0ms	lambda2	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) -1 (* lambda2 (cos phi2)) lambda2 (cos phi2) phi2 (* lambda1 (cos phi2)) lambda1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) -1/6 (* 1/2 lambda2) 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (cos lambda2) (/ (sin lambda2) lambda1) (sin lambda2) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) -1/2 (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (neg (sin lambda2)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (* -1/2 (* lambda2 (sin lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (* -1/2 (* lambda1 (sin (neg lambda2)))) (* lambda1 (sin (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) 1/24 (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (* phi1 (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (+ 1 (* -1/6 (pow phi1 2))) (* -1/6 (pow phi1 2)) (pow phi1 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* 1/2 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (cos (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) 3 (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow (cos phi2) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (* -1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (pow lambda2 2) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (* -1 lambda2) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
114.0ms	phi1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) -1 (* lambda2 (cos phi2)) lambda2 (cos phi2) phi2 (* lambda1 (cos phi2)) lambda1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) -1/6 (* 1/2 lambda2) 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (cos lambda2) (/ (sin lambda2) lambda1) (sin lambda2) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) -1/2 (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (neg (sin lambda2)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (* -1/2 (* lambda2 (sin lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (* -1/2 (* lambda1 (sin (neg lambda2)))) (* lambda1 (sin (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) 1/24 (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (* phi1 (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (+ 1 (* -1/6 (pow phi1 2))) (* -1/6 (pow phi1 2)) (pow phi1 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* 1/2 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (cos (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) 3 (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow (cos phi2) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (* -1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (pow lambda2 2) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (* -1 lambda2) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
110.0ms	phi2	@	0	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) -1 (* lambda2 (cos phi2)) lambda2 (cos phi2) phi2 (* lambda1 (cos phi2)) lambda1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) -1/6 (* 1/2 lambda2) 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (cos lambda2) (/ (sin lambda2) lambda1) (sin lambda2) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) -1/2 (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (neg (sin lambda2)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (* -1/2 (* lambda2 (sin lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (* -1/2 (* lambda1 (sin (neg lambda2)))) (* lambda1 (sin (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) 1/24 (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (* phi1 (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (+ 1 (* -1/6 (pow phi1 2))) (* -1/6 (pow phi1 2)) (pow phi1 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* 1/2 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (cos (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) 3 (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow (cos phi2) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (* -1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (pow lambda2 2) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (* -1 lambda2) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
93.0ms	lambda1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) -1 (* lambda2 (cos phi2)) lambda2 (cos phi2) phi2 (* lambda1 (cos phi2)) lambda1 (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (sin phi1) (cos (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (/ (PI) 2) (PI) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) -1/6 (* 1/2 lambda2) 1/2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (cos lambda2) (/ (sin lambda2) lambda1) (sin lambda2) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (sin lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) -1/2 (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (neg (sin lambda2)) (* (* (cos lambda2) lambda1) -1/6) (* (cos lambda2) lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (sin (neg lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (* -1/2 (* lambda2 (sin lambda1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (* -1/2 (* lambda1 (sin (neg lambda2)))) (* lambda1 (sin (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (/ lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ 1 lambda2) (/ 1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) 1/24 (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (* phi2 phi2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (* phi1 (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (+ 1 (* -1/6 (pow phi1 2))) (* -1/6 (pow phi1 2)) (pow phi1 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (* 1/2 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (cos (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (+ phi1 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) 3 (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow (cos phi2) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (* -1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (pow lambda1 3) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (pow lambda2 2) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (* -1 lambda2) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))

rewrite2.8s (5.2%)

Memory

37.8MiB live, 3 745.9MiB allocated; 1.7s collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	13338	176048
0	14782	176048
0	14782	172101

Stop Event

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

Counts

4 273 → 4 312

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))
#s(literal -1 binary64)
(*.f64 lambda2 (cos.f64 phi2))
lambda2
(cos.f64 phi2)
phi2
(*.f64 lambda1 (cos.f64 phi2))
lambda1
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 phi2 (cos.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
(cos.f64 lambda1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sin.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(literal 1 binary64)
(.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))
#s(literal -1/6 binary64)
(*.f64 #s(literal 1/2 binary64) lambda2)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
(pow.f64 lambda1 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))
(cos.f64 lambda2)
(/.f64 (sin.f64 lambda2) lambda1)
(sin.f64 lambda2)
(*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1)))
(fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(*.f64 lambda2 (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
#s(literal -1/2 binary64)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(*.f64 lambda2 (cos.f64 lambda1))
(*.f64 #s(literal -1 binary64) (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(neg.f64 (sin.f64 lambda2))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
(+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
(.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))
(/.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))
(*.f64 phi1 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
(neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(pow.f64 phi1 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
(*.f64 phi1 (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2))
#s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))
(+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(*.f64 lambda1 (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2))
(sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 #s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
(.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (sin.f64 phi1) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
(*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
(+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
(/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)
(pow.f64 lambda2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx ( (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2)))
(*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (* (sin phi1) (sin (neg lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* 1/2 (* (cos (neg lambda2)) (sin phi1))))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* -1 (/ (sin lambda2) (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (sin lambda2) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (* 1/4 (pow lambda2 2)) 1/2))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2))) 1/2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* 1/4 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/4 lambda2))))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* 1/4 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) lambda2)) (* 1/4 lambda2))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/4 lambda2) (* (pow lambda1 2) (+ (* -1/48 lambda2) (* 1/1440 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* 1/24 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) lambda2)) (* 1/24 lambda2))))))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* 1/6 (pow lambda1 2)) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* -1/120 (pow lambda1 2)))) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* (pow lambda1 2) (- (* 1/5040 (pow lambda1 2)) 1/120)))) 1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) lambda2)) (* 1/2 lambda2))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* 1/2 lambda2) (* (pow lambda1 2) (+ (* -1/24 lambda2) (* 1/720 (* (pow lambda1 2) lambda2)))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/12 (* lambda1 (pow lambda2 2))) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* 1/12 (* (pow lambda1 2) lambda2))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/240 (* (pow lambda1 2) lambda2)) (* 1/12 lambda2)))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/12 lambda2) (* (pow lambda1 2) (+ (* -1/240 lambda2) (* 1/10080 (* (pow lambda1 2) lambda2))))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda1 (sin (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* 1/2 (* (cos phi2) (cos (neg lambda2)))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (sin (neg lambda2))))) (* phi1 (cos (neg lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (sin (neg lambda2)))) (* -1/2 (* lambda1 (* phi1 (cos (neg lambda2))))))) (* phi1 (cos (neg lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* phi1 (cos (neg lambda2)))) (* 1/6 (* lambda1 (* phi1 (sin (neg lambda2))))))))) (* phi1 (cos (neg lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1/2 (* (cos lambda2) (sin phi1))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* 1/2 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/720 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/2 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow lambda1 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/720 (* (pow lambda1 2) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))))))))) (* phi1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (* lambda1 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos phi2) (cos (+ lambda2 (* 1/2 (PI))))))))))) (* (cos phi2) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* 1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 lambda1)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (* lambda1 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (* lambda1 (+ (* -1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1 (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg lambda2)) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* -1/2 (* lambda1 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* 1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))))))) (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* -1 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow lambda1 2) (+ (* -1 (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow lambda1 2) (+ (* -2/45 (* (pow lambda1 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 1))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* -1 (pow lambda1 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/3 (pow lambda1 2)) 1)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/3 (* -2/45 (pow lambda1 2)))) 1)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (pow lambda2 2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (+ (* lambda1 lambda2) (pow lambda2 2)) lambda1)))
#s(approx (/ (pow lambda2 2) lambda1) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2)))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (* -1 (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* 1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2))))) (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI))))) (* -1/6 (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/6 (* (cos phi2) (cos (neg lambda2))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ lambda2 (pow lambda1 3))) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (* -1 (cos lambda2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 (+ lambda2 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos lambda1) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (+ lambda2 (/ (pow lambda2 2) lambda1))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* -1 (/ (- (/ lambda2 lambda1) 1) lambda1)) (* 1/2 lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))) lambda1))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (+ 1 (* -1/2 (pow lambda2 2))) lambda1)))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* 1/2 (/ (pow lambda2 2) lambda1)))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1 lambda2) (/ 1 lambda1)) lambda1)) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2)))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 lambda1)))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (* lambda2 (cos phi2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* 1/2 lambda2) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/2 (/ 1 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* lambda2 (+ (* -1/2 lambda1) (* (pow lambda1 2) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 lambda1))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* (cos lambda2) lambda1) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* -1/12 (* (pow lambda1 2) lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 1))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* lambda2 (+ (* -1/2 lambda2) (* 1/2 lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* -1/12 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/12 (* lambda1 (pow lambda2 2))) (* 1/2 lambda1)))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* 1/2 lambda1) (* (pow lambda2 2) (+ (* -1/12 lambda1) (* 1/240 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* lambda2 (+ (* 1/2 lambda1) (* (pow lambda2 2) (+ (* -1/12 lambda1) (* (pow lambda2 2) (+ (* -1/10080 (* lambda1 (pow lambda2 2))) (* 1/240 lambda1)))))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 lambda2))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* 1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* (pow lambda2 2) (+ (* -1/120 (* lambda1 (pow lambda2 2))) (* 1/6 lambda1)))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 lambda1) (* (pow lambda2 2) (+ (* 1/6 lambda1) (* (pow lambda2 2) (+ (* -1/120 lambda1) (* 1/5040 (* lambda1 (pow lambda2 2)))))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (sin lambda1)))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi2))))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (sin lambda1))) (* -1/2 (* phi1 phi2))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* phi1 (sin lambda1))) (* phi1 (cos lambda1)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (cos lambda1)))) (* phi1 (sin lambda1)))) (* phi1 (cos lambda1)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (cos lambda1))) (* -1/6 (* lambda2 (* phi1 (sin lambda1)))))) (* phi1 (sin lambda1)))) (* phi1 (cos lambda1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* 1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* 1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* 1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* 1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))))) (* phi1 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))))) (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1)))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (cos (- (* 1/2 (PI)) lambda1))))) (* (cos phi2) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* lambda2 (+ (* -1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 1))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* 1/120 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/5040 (* lambda1 (pow lambda2 2))) (* 1/120 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))) (* lambda2 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* -1 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (+ (* -1 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))) (* lambda2 (+ (* -1 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* lambda2 (+ (* -1 (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* -1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (+ (* lambda2 (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow lambda2 2) (sin phi1))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow lambda2 2) (sin phi1))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* lambda2 (+ 1 (/ lambda2 lambda1)))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1/6 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/120 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/120 (sin (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (* (cos lambda1) (cos phi2)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) 1))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (* 1/2 lambda1)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/6 (/ lambda1 lambda2))))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (cos lambda1)) (/ (cos lambda1) (pow lambda2 2))) (* -1 (/ (sin lambda1) lambda2))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda2 (+ lambda1 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 (/ (pow lambda1 2) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (pow lambda1 2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2))))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ 1 (* -1/6 (pow lambda1 2))) lambda2)) (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/6 (/ lambda1 lambda2)) 1/2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (sin lambda1) lambda2)) (* 1/2 (cos lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (sin (* -1 lambda2))))))
#s(approx (* lambda1 (sin (neg lambda2))) #s(hole binary64 (* lambda1 (sin (* -1 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (cos phi2) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (* -1 (/ (- (* -1 lambda1) (/ 1 lambda2)) lambda2)) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1/2 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* -1 (/ (+ 1 (* -1/2 (pow lambda1 2))) lambda2)))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* 1/2 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (* -1 lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (* -1 lambda2)) (sin phi1))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/6 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (cos (- lambda1 lambda2))) (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 phi2))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos phi2) (cos (neg phi2))))) (* 1/2 (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* 1/2 (+ (cos phi2) (cos (neg phi2)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (+ (cos phi2) (cos (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* 1/2 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (cos (neg phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* -1/2 (* phi1 (sin (neg phi2)))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* -1/6 (* phi1 (cos (neg phi2)))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (cos phi2)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (cos phi2))))))))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi2))
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* -1/2 (* phi1 (cos (neg (+ phi2 (* 1/2 (PI))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/120 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (sin phi2)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (* -1/2 (* phi1 phi2)) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 phi1))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi1 2)))))
#s(approx (* -1/6 (pow phi1 2)) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (pow phi1 2) #s(hole binary64 (pow phi1 2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (sin phi2)))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 1))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi1 2))) (pow phi1 2))))
#s(approx (/ 1 (pow phi1 2)) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (* phi1 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))) (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/2 (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (* 1/2 (PI)))) (* 1/5040 (sin (* 1/2 (PI))))))) (* 1/2 (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (sin (* 1/2 (PI))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (* -1/6 (sin (* 1/2 (PI)))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (+ (* -1/6 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (* 1/120 (sin (* 1/2 (PI)))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi1 (- (+ (sin (* 1/2 (PI))) (* (pow phi1 2) (- (+ (* -1/6 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* 1/120 (sin (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/5040 (sin (* 1/2 (PI)))) (* 1/5040 (sin (* 1/2 (PI))))))) (* -1/120 (sin (* 1/2 (PI))))))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (sin (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/6 (* phi1 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi1 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi1 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (cos (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* -1/2 (* phi1 (sin (+ phi2 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* phi1 (+ (* -1/2 (sin (+ phi2 (PI)))) (* -1/6 (* phi1 (cos (+ phi2 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi2 (PI))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (+ phi2 (PI)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (- (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi2))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) phi2)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* 1/6 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* -1 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* 1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3)))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 1/2 (pow (cos (- lambda1 lambda2)) 3))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) #s(hole binary64 (* (pow phi1 3) (+ (* -1 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* 1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -13/120 (pow (cos (- lambda1 lambda2)) 3)) (* 41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3)))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* 13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (pow (cos (- lambda1 lambda2)) 3)))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow phi1 3)))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* 13/120 (pow phi1 2)) 1/2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 13/120 (* -41/3024 (pow phi1 2)))) 1/2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/24 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* 1/12 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/240 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (+ (* -1/720 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/5040 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos lambda1) 2) (pow (cos phi2) 2)))) (* 2/45 (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))) (* (pow (cos lambda1) 2) (pow (cos phi2) 2))))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos phi2) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos phi2) 2))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos phi2) 2)) (* 2/45 (* (pow phi1 2) (pow (cos phi2) 2))))) (pow (cos phi2) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos phi2) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos phi2) 2))) (* 2/45 (pow (cos phi2) 2)))))) (pow (cos phi2) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* 1/120 (* (cos phi2) (cos (neg lambda2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* -1/6 (* (pow phi1 2) (cos (neg lambda2))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* 1/120 (* (pow phi1 2) (cos (neg lambda2))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (neg lambda2)))) (* 1/120 (cos (neg lambda2)))))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* 2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (/ (* (cos phi2) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/240 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/720 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/5040 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (+ (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (- phi1 phi2))))
#s(approx (- phi1 phi2) #s(hole binary64 phi1))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (+ phi1 phi2))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi1))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1)))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 phi2) (/ phi2 (pow phi1 2))) (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* -1/6 (pow phi1 3))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* (pow phi1 3) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (* -1/6 (pow phi1 2))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/6))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (- (/ 1 (pow phi1 2)) 1/2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (+ phi2 (PI))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (+ (/ phi2 phi1) (/ (PI) phi1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos phi2) 2) (pow (sin phi1) 2))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg (+ phi2 (* -1 phi1))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi2 (* -1 phi1)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (cos (- lambda1 lambda2)) (* -1 (/ phi2 phi1))) phi1)) (* -1/2 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 phi2) (/ (cos (- lambda1 lambda2)) phi1))))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) #s(hole binary64 (* -1 (* (pow phi1 3) (- 1/6 (/ 1 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) #s(hole binary64 (* 1/2 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (cos (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi2 (PI)) (* -1 phi1)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (PI)) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (* 1/24 lambda1))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (+ (* 1/24 lambda1) (* (pow phi2 2) (+ (* -1/720 lambda1) (* 1/720 lambda2)))))))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* -1/2 (* lambda2 (pow phi2 2))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* (pow phi2 2) (+ (* -1/2 lambda2) (* 1/24 (* lambda2 (pow phi2 2))))))))
#s(approx (* lambda2 (cos phi2)) #s(hole binary64 (+ lambda2 (* (pow phi2 2) (+ (* -1/2 lambda2) (* (pow phi2 2) (+ (* -1/720 (* lambda2 (pow phi2 2))) (* 1/24 lambda2))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* 1/2 (* phi2 (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/2 (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* -1 (* phi2 (cos phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/6 (* phi2 (cos phi1))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (cos phi1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (sin phi1)) (* -1/6 (* phi2 (cos phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (* 1/2 (PI))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (sin (- phi1 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (- phi1 (* 1/2 (PI)))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (- phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (* 1/2 (PI)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 1))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1 (pow phi2 4)) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) #s(hole binary64 (/ 1/2 (pow phi2 2))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* 1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (cos (- lambda1 lambda2)))) (* 1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* 1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/24 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* -1/6 (pow phi2 2)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (/ phi2 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* 1/2 (* phi2 (cos (- lambda1 lambda2)))) (/ 1 phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* phi2 (+ (* -1/6 (/ phi2 phi1)) (* 1/2 (cos (- lambda1 lambda2))))) (/ 1 phi1))))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ phi2 phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* -1/6 (/ (pow phi2 2) phi1)) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* 1/120 (/ (pow phi2 2) phi1)) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/5040 (/ (pow phi2 2) phi1)) (* 1/120 (/ 1 phi1)))) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* 1/2 (* phi2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (cos phi1) (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* phi2 (+ (* 1/2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))) (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* 1/2 (* phi2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))) (* phi2 (+ (* -1 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1)))) (* phi2 (+ (* 1/6 (* phi2 (* (cos lambda1) (* (cos (* 1/2 (PI))) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (sin phi1) (sin (* 1/2 (PI)))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/2 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) #s(hole binary64 (+ (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/720 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/2 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/24 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi2 2) (+ (* -1/2 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow phi2 2))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow phi2 2))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/720 (* phi1 (pow phi2 2))) (* 1/24 phi1))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* -1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (- (* 1/2 (PI)) phi1)))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (cos (+ phi1 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* -1/2 (* phi2 (sin (+ phi1 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* phi2 (+ (* -1/2 (sin (+ phi1 (PI)))) (* -1/6 (* phi2 (cos (+ phi1 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* phi2 (- (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (+ (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/12 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/240 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1/720 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/5040 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (pow (sin phi1) 2))) (pow (sin phi1) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (sin phi1) 2)) (* 1/3 (* (pow phi2 2) (pow (sin phi1) 2))))) (pow (sin phi1) 2))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (pow (sin phi1) 2)) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (pow (sin phi1) 2))) (* 1/3 (pow (sin phi1) 2)))))) (pow (sin phi1) 2))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 1))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* -1 (pow phi2 2)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/3 (pow phi2 2)) 1)))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/3 (* -2/45 (pow phi2 2)))) 1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/24 (* (cos (neg lambda2)) (sin phi1))))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (/ (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (* (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 2))) (/ (* (cos phi1) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1))))))) (* (pow (cos (- lambda1 lambda2)) 2) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/240 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/720 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/5040 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (+ (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos lambda2) (sin lambda1))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/2 (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* -1 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2))))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ phi1 phi2) (+ 1 (* 1/2 (/ (PI) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 1/24))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- 1/24 (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (+ 1/24 (/ 1 (pow phi2 4)))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi2 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/2 phi1)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (+ (/ phi1 phi2) (/ (PI) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (pow (cos phi2) 2) #s(hole binary64 (pow (cos phi2) 2)))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (+ phi1 (* -1 phi2)))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi1 (* -1 phi2)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (* 1/2 (pow phi1 2)) 1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) 1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 phi1) (/ (cos (- lambda1 lambda2)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi1 (PI)) (* -1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (PI)) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))

Outputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
(fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2)))
(+.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(literal -1 binary64)
(*.f64 lambda2 (cos.f64 phi2))
lambda2
(cos.f64 phi2)
phi2
(*.f64 lambda1 (cos.f64 phi2))
lambda1
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
(sin.f64 phi1)
(cos.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
(sin.f64 (-.f64 lambda1 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 phi2 (cos.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
(cos.f64 lambda1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
(cos.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(PI.f64)
#s(literal 2 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sin.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2))
(sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(literal 1 binary64)
(.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))
(+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda2))
#s(literal -1/6 binary64)
(*.f64 #s(literal 1/2 binary64) lambda2)
#s(literal 1/2 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
(pow.f64 lambda1 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1))
(+.f64 (*.f64 #s(literal -1 binary64) (cos.f64 lambda2)) (/.f64 (sin.f64 lambda2) lambda1))
(cos.f64 lambda2)
(/.f64 (sin.f64 lambda2) lambda1)
(sin.f64 lambda2)
(*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1)))
(fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))
(+.f64 (.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2) (sin.f64 lambda1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
(sin.f64 lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1)))
(fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))
(+.f64 (*.f64 (neg.f64 lambda2) (cos.f64 lambda1)) (sin.f64 lambda1))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(*.f64 lambda2 (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(+.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2) (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1)) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
#s(literal -1/2 binary64)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(*.f64 lambda2 (cos.f64 lambda1))
(*.f64 #s(literal -1 binary64) (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2))))
(fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))
(+.f64 (.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1) (neg.f64 (sin.f64 lambda2)))
(fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2))
(+.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1) (cos.f64 lambda2))
(fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(+.f64 (.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2))) (.f64 (*.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64)))
(neg.f64 (sin.f64 lambda2))
(.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))
(*.f64 (cos.f64 lambda2) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
(+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))
(.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))
(fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (.f64 #s(literal -1 binary64) (cos.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))
(neg.f64 lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))
(*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(/.f64 lambda1 lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(/.f64 #s(literal 1 binary64) lambda2)
(/.f64 #s(literal 1 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(literal 1/24 binary64)
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi2 phi2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
(.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
(fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))
(+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 (sin.f64 phi2) phi1))
(/.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))
(*.f64 phi1 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
(neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
(.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(pow.f64 phi1 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(fma.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))
(+.f64 (.f64 #s(approx (- ( (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1) (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))
(.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 #s(literal 1/2 binary64) (PI.f64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
(*.f64 phi1 (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2))
#s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))
(+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(*.f64 lambda1 (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2))
(sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 #s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
(.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))
#s(literal 3 binary64)
(pow.f64 (sin.f64 phi1) #s(literal 3 binary64))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))
(*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 phi2) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
(+.f64 (.f64 lambda1 lambda1) #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
(*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
(+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
(/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)
(pow.f64 lambda2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(+.f64 (.f64 lambda1 lambda1) (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(+.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx ( (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2)))
(*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (* lambda1 (cos phi2)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx lambda1 lambda1)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) lambda1)
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))
#s(approx (pow lambda1 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 lambda2)))) lambda1))
#s(approx (/ (sin lambda2) lambda1) (/.f64 (sin.f64 lambda2) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 lambda2)))))) #s(literal 1 binary64)))
#s(approx (sin lambda1) lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/120 binary64) lambda2))))))))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
#s(approx (neg (cos lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/24 binary64))))) #s(literal 1 binary64)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/4 binary64) lambda2)))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/4 binary64) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda2 (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (* lambda2 (cos lambda1)) lambda2)
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/24 binary64) lambda2)))))))
#s(approx (* -1 (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* (cos lambda2) lambda1) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (neg (- lambda1 lambda2)) lambda2)
#s(approx (neg (- lambda1 lambda2)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) #s(literal -1 binary64))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 lambda2)))))) #s(literal 1 binary64)))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/12 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/12 binary64) lambda2))))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/240 binary64) lambda2 (.f64 #s(literal 1/10080 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (neg lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (sin (neg lambda2))) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(literal -1 binary64))
#s(approx (- (/ lambda1 lambda2) 1) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(literal -1 binary64))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda1))
#s(approx (/ 1 lambda1) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (cos.f64 (neg.f64 lambda2)))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (cos.f64 (neg.f64 lambda2)))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 (neg.f64 lambda2))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (*.f64 phi1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (*.f64 phi1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 phi1 (cos.f64 (neg.f64 lambda2)))))) (*.f64 phi1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))))))) (*.f64 phi1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1)))) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1)))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (* 1/2 (PI))) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (+ lambda1 (* -1/2 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
#s(approx (+ lambda2 (* -1/2 lambda1)) lambda2)
#s(approx (+ lambda2 (* -1/2 lambda1)) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (* -1/2 lambda1) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* lambda1 (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 #s(literal -1 binary64) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) #s(literal 1 binary64))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos lambda1) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 lambda1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (pow lambda1 3) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 (+.f64 lambda1 lambda2) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (/.f64 (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))) lambda1))
#s(approx (/ (pow lambda2 2) lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* lambda1 lambda2) (*.f64 lambda1 lambda2))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda2)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (*.f64 #s(literal -1 binary64) (cos.f64 lambda2)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (neg (cos lambda1)) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (+ (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))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (* lambda2 (cos lambda1)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (* -1 (sin lambda1)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (neg (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (neg (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1)))))
#s(approx (* -1/2 (* lambda2 (sin lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (*.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) lambda1)
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) lambda1)
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 lambda1 lambda2))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 lambda1 (+.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ lambda1 (* -1/2 lambda2)) lambda1)
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos lambda1) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 lambda2 lambda1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) (pow.f64 lambda1 #s(literal 3 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 lambda2))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) lambda2)
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ lambda1 (/ (PI) 2)) lambda1)
#s(approx (+ lambda1 (/ (PI) 2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 phi2 lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1) (.f64 #s(literal 1/2 binary64) lambda2)) lambda1))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1))) lambda1)))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (.f64 phi1 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) #s(literal 1/2 binary64))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1))))
#s(approx (+ lambda1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (+.f64 (/.f64 lambda2 lambda1) (/.f64 phi2 lambda1))) #s(literal 1 binary64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (cos.f64 phi2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (cos.f64 phi2)))))))))
#s(approx (* lambda2 (cos phi2)) (*.f64 lambda2 (cos.f64 phi2)))
#s(approx lambda2 lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (cos (neg lambda2)) #s(literal 1 binary64))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (sin.f64 lambda1))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (* 1/2 lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) lambda1)
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(literal -1 binary64))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (/ (sin lambda2) lambda1) (/.f64 lambda2 lambda1))
#s(approx (/ (sin lambda2) lambda1) (*.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin lambda2) lambda1) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin lambda2) lambda1) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* 1/2 (sin lambda2)) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/12 binary64))))))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/240 binary64) (.f64 #s(literal -1/10080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/12 binary64))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos.f64 lambda1))
#s(approx (* -1/2 lambda2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (cos.f64 lambda1))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) lambda1) (neg (sin lambda2))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) lambda1) (cos lambda2)) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1/2 (neg (sin lambda2))) (* (* (cos lambda2) lambda1) -1/6)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) lambda2 (*.f64 #s(literal 1/12 binary64) lambda1)))))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/12 binary64) lambda1)))))
#s(approx (* (* (cos lambda2) lambda1) -1/6) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) lambda1 (.f64 #s(literal 1/4320 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (cos lambda2) lambda1) lambda1)
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* (cos lambda2) lambda1) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) lambda2 (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) lambda1)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda1 (.f64 #s(literal 1/1440 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (neg (- lambda1 lambda2)) (-.f64 lambda2 lambda1))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (sin.f64 lambda1))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (sin.f64 lambda1))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) #s(literal 1 binary64))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/12 binary64) lambda1 (.f64 #s(literal 1/240 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/10080 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/240 binary64) lambda1))))))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/6 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/6 binary64) lambda1))))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) lambda1 (.f64 #s(literal 1/5040 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) lambda2 (*.f64 #s(literal 1/12 binary64) lambda1)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/12 binary64) lambda1)))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) lambda1 (.f64 #s(literal 1/4320 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
#s(approx (/ 1 lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (cos.f64 lambda1))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 lambda1)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (cos.f64 lambda1))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 lambda1)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2))) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)))))) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda2 (fma.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)))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (*.f64 phi1 (cos.f64 lambda1)))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 phi1 (sin.f64 lambda1)) (.f64 phi1 (cos.f64 lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi1 (cos.f64 lambda1))) (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (cos.f64 lambda1))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))))) (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (cos.f64 lambda1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda2 (* 1/2 (PI))) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(literal 1 binary64))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* lambda1 (sin lambda2)) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (sin.f64 phi1))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 lambda1))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (pow lambda2 3) (pow.f64 lambda2 #s(literal 3 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda1 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda2 (+.f64 lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda2 (+.f64 lambda1 lambda2)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (pow lambda2 2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda1)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* -1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (cos (neg lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2)) #s(literal 1 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (* 1/2 (sin lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (sin.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (neg (- lambda1 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (sin.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda2 (+.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (pow.f64 lambda2 #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(literal 1 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 phi2 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (+.f64 (/.f64 lambda1 lambda2) (/.f64 phi2 lambda2))) #s(literal 1 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (cos (neg lambda2)) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2) (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1/2 (* lambda1 (sin (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* lambda1 (sin (neg lambda2))) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* phi1 (cos (- lambda1 lambda2))) (.f64 phi1 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)) #s(literal 1/2 binary64))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (*.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 phi1)))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))) lambda2)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/5040 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi2 (cos phi1)) phi2)
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (.f64 #s(literal 1/24 binary64) phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (*.f64 phi1 (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))))))))))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2))))))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (neg.f64 phi2))))))))))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (*.f64 phi1 (cos.f64 phi2))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 phi2)))))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 phi2)))))))))
#s(approx (+ phi1 phi2) phi2)
#s(approx (+ phi1 phi2) (+.f64 phi1 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (/ (PI) 2)) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (sin.f64 phi2))
#s(approx (* -1 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (sin.f64 phi2))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (sin.f64 phi2))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) phi1))
#s(approx (/ (sin phi2) phi1) (/.f64 (sin.f64 phi2) phi1))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) phi2)
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* -1/2 (* phi1 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) phi1)
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* -1/6 (pow phi1 2)) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (pow phi1 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (sin.f64 phi2))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* phi1 (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(literal 1 binary64))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (/ 1 (pow phi1 2)) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 phi1 (-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (.f64 phi1 (-.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi1) (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (* 1/2 (PI))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi2 (PI.f64))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (*.f64 phi1 (cos.f64 (+.f64 phi2 (PI.f64))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (+.f64 phi2 (PI.f64)))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi2 (PI.f64)))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi1 (+.f64 phi2 (PI.f64))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 phi1 (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -13/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))))
#s(approx (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -13/120 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 41/3024 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (sin phi1) 3) (pow.f64 phi1 #s(literal 3 binary64)))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))))
#s(approx (pow (sin phi1) 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2))) (*.f64 #s(literal 1/120 binary64) (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* phi2 (cos phi1)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))
#s(approx (- phi1 phi2) phi1)
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
#s(approx (+ phi1 phi2) phi1)
#s(approx (+ phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi1)
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
#s(approx (+ phi1 (/ (PI) 2)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (/.f64 phi2 (pow.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 3 binary64))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi1 2))) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (sin.f64 phi2) (pow.f64 phi1 #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) phi1)
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 phi2 phi1) (/.f64 (PI.f64) phi1)))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))) (/.f64 phi2 phi1))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (pow (sin phi1) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))) phi1) (*.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))
#s(approx (* phi1 (+ 1 (* -1/6 (pow phi1 2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (cos (+ phi1 (* 1/2 (PI)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (PI.f64)) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) #s(literal 1 binary64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/720 binary64) (sin.f64 lambda2)))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (*.f64 #s(literal 1/24 binary64) lambda1)))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (fma.f64 #s(literal 1/24 binary64) lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) lambda1 (.f64 #s(literal 1/720 binary64) lambda2))))))))))))
#s(approx (* lambda2 (cos phi2)) lambda2)
#s(approx (* lambda2 (cos phi2)) (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* lambda2 (cos phi2)) (+.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/24 binary64) (*.f64 lambda2 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* lambda2 (cos phi2)) (+.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda2 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda2)))))))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi2 phi2)
#s(approx (* lambda1 (cos phi2)) lambda1)
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1))))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (sin.f64 phi1))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 phi1) (*.f64 #s(literal -1 binary64) (cos.f64 phi1)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1)))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1 binary64) (*.f64 phi2 (sin.f64 phi1))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))))))))
#s(approx (sin (- phi1 phi2)) (sin.f64 phi1))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 phi1)))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sin (+ phi1 phi2)) (sin.f64 phi1))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(literal 1 binary64))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (pow phi2 4) (pow.f64 phi2 #s(literal 4 binary64)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (/ 1 (pow phi2 4)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (/ 1 (pow phi2 2)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (pow phi2 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 phi1 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/2 (pow phi2 2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) phi2)
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/6 (pow phi2 2)) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 phi2 phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (/.f64 phi2 phi1) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) phi1)))))
#s(approx (/ (sin phi2) phi1) (/.f64 phi2 phi1))
#s(approx (/ (sin phi2) phi1) (*.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (/ (sin phi2) phi1) (.f64 phi2 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1)) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) phi1))) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (/ (sin phi2) phi1) (.f64 phi2 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) phi1)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) phi1))) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi1 phi2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* phi1 (cos phi2)) phi1)
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (* 1/2 (PI))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi1 (PI.f64))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (*.f64 phi2 (cos.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (+.f64 phi1 (PI.f64)))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (PI.f64)))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi1 (PI.f64)))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (fma.f64 #s(literal -7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (.f64 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))))))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos phi2) 2) (pow (sin phi1) 2)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos phi2) 2) #s(literal 1 binary64))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (pow (cos phi2) 2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/3 binary64) (*.f64 #s(literal -2/45 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1 binary64)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (/.f64 (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1))))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/12 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/12 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/240 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (sin (+ phi1 (/ (PI) 2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* -1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (sin.f64 (PI.f64)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (PI.f64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (+ phi1 phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(literal 1/24 binary64))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (-.f64 #s(literal 1/24 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(literal 1/24 binary64))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 #s(literal -1/2 binary64) phi1))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) phi2)
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 phi1 phi2) (/.f64 (PI.f64) phi2)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)) #s(literal 1 binary64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi2)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (pow (cos phi2) 2) (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (/.f64 lambda1 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda2 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda1 phi2))) (/.f64 lambda2 phi2))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (/.f64 (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2)) #s(literal 1 binary64)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (/.f64 (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (PI.f64)) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))

eval3.9s (7.3%)

Memory: 238.0MiB live, 6 900.6MiB allocated; 3.0s collecting garbage
Compiler: Compiled 1 126 554 to 47 193 computations (95.8% saved)

prune1.2s (2.3%)

Memory

17.5MiB live, 2 485.3MiB allocated; 194ms collecting garbage

Pruning

237 alts after pruning (229 fresh and 8 done)

	Pruned	Kept	Total
New	19 190	229	19 419
Fresh	0	0	0
Picked	136	8	144
Done	1	0	1
Total	19 327	237	19 564

Accuracy

99.9%

Counts

19 564 → 237

Alt Table

Click to see full alt table

Status	Accuracy	Program
▶	26.5%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	15.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	18.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	14.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	24.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	9.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	15.2%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	15.4%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	15.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	14.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	13.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	13.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	12.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	50.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	50.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	56.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
✓	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	74.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
▶	80.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	81.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	56.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
▶	56.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
▶	71.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
▶	56.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
▶	82.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	82.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	56.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	71.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
▶	72.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
▶	66.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	80.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	65.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	69.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
▶	56.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	43.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	43.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	56.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
✓	54.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	48.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	48.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	59.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	72.3%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
▶	73.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
▶	67.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	51.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	36.8%	(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	65.5%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
▶	50.3%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	24.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
▶	17.3%	(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	45.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	40.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	28.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
▶	26.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
▶	12.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	11.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	13.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
▶	9.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	15.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	69.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
▶	66.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
▶	42.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	42.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
▶	68.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
▶	18.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
▶	45.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	47.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
▶	48.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
▶	39.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
▶	43.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	55.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
▶	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
▶	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
✓	59.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	20.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	43.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
▶	46.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	40.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
▶	46.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	33.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	43.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
▶	39.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
▶	53.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	53.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	58.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
▶	45.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	44.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	53.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
▶	58.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	58.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	27.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
▶	26.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
▶	27.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
▶	27.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
▶	27.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
▶	55.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
▶	39.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
▶	43.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
▶	43.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
▶	42.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
▶	38.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
▶	29.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
▶	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
▶	26.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
▶	29.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
▶	43.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
▶	48.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	27.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
▶	47.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	30.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	27.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
▶	27.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
▶	27.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
▶	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
▶	11.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	39.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	36.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	27.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
▶	55.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
▶	38.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	51.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	52.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
▶	24.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	23.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	35.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	24.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	24.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	41.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	28.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	41.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
▶	36.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	41.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	32.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	33.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	33.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	36.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	34.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	34.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	61.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
▶	38.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
▶	35.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	25.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
✓	45.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
✓	28.0%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	21.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
▶	32.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	20.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
▶	22.0%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	48.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	38.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
▶	40.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
✓	30.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	26.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	31.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	22.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
▶	22.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	19.6%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	21.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	26.6%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	26.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	25.9%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	23.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	29.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
▶	18.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	20.3%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
▶	29.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	60.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
▶	58.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
▶	34.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))
▶	33.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
✓	61.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
▶	60.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
▶	39.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	27.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	40.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
▶	45.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
▶	30.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	23.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	36.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
▶	43.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
▶	36.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
▶	38.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	28.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	36.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	32.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
▶	23.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	32.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
▶	30.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	34.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	26.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
▶	38.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
▶	29.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
▶	27.5%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	27.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	39.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
▶	41.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
▶	35.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	41.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	22.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	36.7%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	32.5%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	49.7%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	21.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
▶	31.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	14.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	35.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	48.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	44.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
▶	29.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	44.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
▶	44.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	45.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	40.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	48.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	45.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	41.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
▶	45.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	45.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
▶	27.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
▶	38.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
▶	41.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
▶	28.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
▶	26.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
▶	25.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
▶	36.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
▶	41.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
▶	37.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	31.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	33.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
▶	33.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	29.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
▶	99.7%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
▶	78.1%	#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
▶	40.3%	#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))

Compiler

Compiled 11 372 to 7 930 computations (30.3% saved)

series1.4s (2.6%)

Memory

33.8MiB live, 2 361.0MiB allocated; 344ms collecting garbage

Counts

1 252 → 4 180

Calls

Call 1

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

Outputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (* (sin phi1) (sin (neg lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* 1/2 (* (cos (neg lambda2)) (sin phi1))))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* -1 (cos phi2))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (/ (* lambda1 (cos phi2)) lambda2)))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* 1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1 (* (cos lambda2) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (sin phi1))) (* lambda1 (+ (* -1 (* (sin lambda2) (sin phi1))) (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (sin phi1))) (* lambda1 (+ (* -1 (* (sin lambda2) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* 1/2 (* (cos lambda2) (sin phi1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/48 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/24 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ (+ 1 (* 1/2 (* lambda1 lambda2))) (pow lambda1 2))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (pow lambda1 2))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ (+ 1 (* 1/2 (* lambda1 lambda2))) (pow lambda1 2))))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ 1 (pow lambda1 2)) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (* -1/6 lambda1) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* -1 (/ (sin lambda2) (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (sin lambda2) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1/2 (* (cos lambda2) (sin phi1))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) lambda2)) (* 1/2 lambda2))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* 1/2 lambda2) (* (pow lambda1 2) (+ (* -1/24 lambda2) (* 1/720 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* 1/24 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) lambda2)) (* 1/24 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (* 1/4 (pow lambda2 2)) 1/2))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2))) 1/2))))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* lambda1 (* (pow lambda2 2) (- 1/4 (* 1/2 (/ 1 (pow lambda2 2)))))))) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda2 2) (- 1/4 (* 1/2 (/ 1 (pow lambda2 2))))))))) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (/ 1 (pow lambda2 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- 1/4 (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ 1/4 (* -1/6 (/ lambda1 lambda2))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ -1 (pow lambda2 2))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* -1 (/ lambda1 lambda2)) (/ 1 (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* lambda1 (- (* 1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))) (/ 1 (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* lambda1 (- (* lambda1 (+ (* 1/6 (/ lambda1 lambda2)) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2)))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (/ -1 lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* -1 lambda1) (/ 1 lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (/ lambda1 lambda2)) 1)) (/ 1 lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (+ (* 1/6 lambda1) (* 1/2 (/ 1 lambda2)))) 1)) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (/ -1 lambda2)))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* 1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* (pow lambda1 2) (+ (* -1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* (pow lambda1 2) (+ (* (pow lambda1 2) (- (* 1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* 1/4 (pow lambda1 2)) 1/2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/4 (* -1/48 (pow lambda1 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* 1/1440 (pow lambda1 2)) 1/48)))) 1/2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* 1/4 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/4 lambda2))))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* 1/4 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) lambda2)) (* 1/4 lambda2))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/4 lambda2) (* (pow lambda1 2) (+ (* -1/48 lambda2) (* 1/1440 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* 1/6 (pow lambda1 2)) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* -1/120 (pow lambda1 2)))) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* (pow lambda1 2) (- (* 1/5040 (pow lambda1 2)) 1/120)))) 1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (+ (* -1 lambda2) (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 -1))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (* -1/2 (* lambda1 lambda2)) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))) (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (+ (* -1/2 (* lambda1 (pow lambda2 2))) (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* 1/6 (pow lambda2 2)) 1)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/6 (pow lambda2 2))) 1)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* 1/6 (pow lambda2 2))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 lambda2)) (* 1/6 (pow lambda2 2)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* 1/6 lambda2)))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/6 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* lambda1 (+ (* 1/6 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2))))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) (pow lambda1 3)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* lambda1 (+ (* 1/6 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (sin (neg lambda2)) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (sin (neg lambda2)) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) lambda1))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) lambda1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (/ (sin (neg lambda2)) lambda1)))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (* -1 (/ lambda1 lambda2)) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 -1))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 1))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ 1 lambda1)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* 1/2 (* (cos phi2) (cos (neg lambda2)))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/2 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* 1/2 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/4 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 lambda1)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg lambda2)) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (pow lambda2 2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (+ (* lambda1 lambda2) (pow lambda2 2)) lambda1)))
#s(approx (/ (pow lambda2 2) lambda1) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2)))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (* -1 (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* 1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2))))) (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI))))) (* -1/6 (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/6 (* (cos phi2) (cos (neg lambda2))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (/ (* lambda1 (cos phi2)) lambda2)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* lambda1 (+ (* -1 (/ (cos phi2) lambda1)) (/ (cos phi2) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ lambda2 (pow lambda1 3))) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 -1/6))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (* 1/2 (/ lambda2 lambda1)) 1/6)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* 1/2 (/ lambda2 lambda1))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (* -1 (cos lambda2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (* -1 (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (* -1/2 (cos lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* lambda1 (+ 1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (pow lambda2 2)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* lambda1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (pow lambda2 2))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* lambda1 (- (* -1/2 lambda2) (/ 1 lambda1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda1 (+ (* -1/2 (pow lambda2 2)) (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* lambda1 (- (+ (* -1/2 lambda2) (* 1/6 (/ (pow lambda2 2) lambda1))) (/ 1 lambda1)))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* 1/6 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/6 (/ lambda2 lambda1)) 1/2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* 1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* -1 (/ (sin (neg lambda2)) (pow lambda1 3))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (* 1/6 (cos (neg lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* -1 (/ (sin (neg lambda2)) (pow lambda1 3))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1/2 (/ (sin (neg lambda2)) lambda1))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos (neg lambda2)) lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (* -1 (cos (neg lambda2)))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2)))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ -1 lambda2)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (- (/ 1 lambda1) (/ 1 lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 (+ lambda2 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1/2))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (+ lambda2 (/ (pow lambda2 2) lambda1))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos phi2) lambda2)) (/ (cos phi2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* -1 (/ (- (/ lambda2 lambda1) 1) lambda1)) (* 1/2 lambda2)) lambda1)))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))) lambda1))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (pow lambda2 2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (pow lambda2 2)) (/ lambda2 lambda1)) 1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (pow lambda2 2)) (/ lambda2 lambda1))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 lambda2) (/ 1 lambda1))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (pow lambda2 2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)) (* 1/2 (pow lambda2 2))) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)) (* 1/2 (pow lambda2 2)))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (- (* 1/6 (pow lambda2 2)) 1) lambda1)) (* 1/2 lambda2))))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (* 1/2 lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (+ 1 (* -1/2 (pow lambda2 2))) lambda1)))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* 1/2 (/ (pow lambda2 2) lambda1)))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1 lambda2) (/ 1 lambda1)) lambda1)) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 lambda1)))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (/ (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* lambda2 (+ (* -1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* -1 (* lambda2 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* 1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/120 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (cos phi2))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* -1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (pow lambda2 2) (cos phi2)))) (* lambda1 (cos phi2)))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/24 (* lambda1 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* lambda1 (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (* (pow lambda2 2) (cos phi2)))) (* 1/24 (* lambda1 (cos phi2))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* 1/2 lambda2) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/2 (/ 1 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* lambda2 (+ (* -1/2 lambda1) (* (pow lambda1 2) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (sin lambda1))) (* -1/2 (* phi1 phi2))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 1))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* 1/120 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/5040 (* lambda1 (pow lambda2 2))) (* 1/120 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (cos lambda1)))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (cos lambda1) (pow lambda2 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) (pow lambda2 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))) (pow lambda2 2))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (cos lambda1) (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ (+ (* -1 (cos lambda1)) (* -1 (* lambda2 (sin lambda1)))) (pow lambda2 2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (/ (cos lambda1) lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (/ (+ (* -1 (cos lambda1)) (* -1 (* lambda2 (sin lambda1)))) lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 -1))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2)))))
#s(approx (* 1/6 lambda2) #s(hole binary64 (* 1/6 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* lambda2 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12)))) (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* lambda2 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))) (* (pow lambda1 3) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1))))))) (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))) (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))) (* lambda2 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1)))))) (* (pow lambda1 3) (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12)))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- 1/6 (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* -1 (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* lambda2 (+ (* -1 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* lambda2 (+ (* -1 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (* lambda2 (- (+ (* -1 (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1))))) (* 1/2 (/ 1 (pow lambda1 2)))) 1/12))))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (+ (* -1/2 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1))) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (+ (* 1/2 (/ 1 lambda1)) (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1)))) (* 1/2 (/ 1 (pow lambda1 2)))))) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* 1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ (* -1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 1/6))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* -1/12 (pow lambda2 2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* (pow lambda2 2) (- (* 1/144 (pow lambda2 2)) 1/12)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/144 (* -1/4320 (pow lambda2 2)))) 1/12)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* -1/12 (* (pow lambda1 2) lambda2)))))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 lambda1))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/12 (pow lambda2 2)) 1/2))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/12 (* -1/240 (pow lambda2 2)))) 1/2))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/12 (* (pow lambda2 2) (- (* 1/10080 (pow lambda2 2)) 1/240)))) 1/2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ (- (/ lambda2 lambda1) 1) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (sin lambda1)))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi2))))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/4 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))) (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow lambda2 2) (sin phi1))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow lambda2 2) (sin phi1))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (+ (* lambda2 (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (* -1 (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* lambda2 (+ 1 (/ lambda2 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1/6 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/120 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/120 (sin (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (* (cos lambda1) (cos phi2)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (cos phi2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (cos phi2)))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* lambda2 (cos phi2))))) (* -1 (cos phi2)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/24 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* 1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* 1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow lambda2 2) (cos phi2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* (cos phi2) (sin lambda2))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) 1))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)) lambda2)))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* 1/2 (/ lambda2 lambda1))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ 1 lambda1)) (/ 1 (* (pow lambda1 2) lambda2))) (* 1/6 (/ 1 lambda2))))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* lambda2 (+ (* 1/2 (/ 1 lambda1)) (/ 1 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (* 1/2 lambda1)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/6 (/ lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (cos lambda1)) (/ (cos lambda1) (pow lambda2 2))) (* -1 (/ (sin lambda1) lambda2))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (+ (/ (cos lambda1) (pow lambda2 2)) (/ (sin lambda1) lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (* -1/2 (cos lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 (cos lambda1)) (+ (/ (cos lambda1) (pow lambda2 2)) (/ (sin lambda1) lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (sin lambda1) lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2)))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 lambda1) (/ lambda1 (pow lambda2 2))) (/ 1 lambda2)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* (pow lambda2 2) (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* lambda2 (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* 1/6 (pow lambda2 3))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (+ (* -1/2 (/ lambda1 lambda2)) (/ lambda1 (pow lambda2 3)))) (/ 1 (pow lambda2 2))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* 1/6 (pow lambda2 3))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* (pow lambda2 3) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* 1/6 (pow lambda2 2))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* lambda2 (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (* 1/6 (cos (neg lambda2)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* -1/2 (sin lambda2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda2 (+ lambda1 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 (/ (pow lambda1 2) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (* -1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (pow lambda1 2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (/ 1 (pow lambda1 2)) 1/6) lambda2)) (* 1/2 (/ 1 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ 1 (* -1/6 (pow lambda1 2))) lambda2)) (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/6 (/ lambda1 lambda2)) 1/2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (+ (sin lambda1) (/ (cos lambda1) lambda2)) lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (sin lambda1) lambda2)) (* 1/2 (cos lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda2)) (* -1/2 lambda1)))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (- (* -1/2 lambda1) (/ 1 lambda2)) lambda2)) 1/6)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda2)) (* -1/2 lambda1)) lambda2)) 1/6)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (- (* -1/2 lambda1) (/ 1 lambda2)) lambda2)) 1/6)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda1) (/ 1 lambda2)) lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* -1 (/ (sin (* -1 lambda2)) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (/ (sin (* -1 lambda2)) lambda1)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* -1/2 (sin (* -1 lambda2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (* 1/6 (cos (* -1 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (* -1 (/ (- (* -1 lambda1) (/ 1 lambda2)) lambda2)) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1/2 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* -1 (/ (+ 1 (* -1/2 (pow lambda1 2))) lambda2)))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* 1/2 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (* -1 lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (* -1 lambda2)) (sin phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (* -1 lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (* -1 lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/6 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (cos (- lambda1 lambda2))) (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 phi2))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* 1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (sin (* 1/2 (PI))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi2 (cos (* 1/2 (PI)))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* phi2 (sin (* 1/2 (PI)))))) (* phi2 (cos (* 1/2 (PI))))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* phi2 (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* phi2 (cos (* 1/2 (PI))))) (* -1/6 (cos (- lambda1 lambda2))))))) (* phi2 (cos (* 1/2 (PI))))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (* 1/2 (PI))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* phi2 (cos (* 1/2 (PI))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* phi2 (sin (* 1/2 (PI)))))) (* phi2 (cos (* 1/2 (PI)))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* phi2 (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* phi2 (cos (* 1/2 (PI)))))))) (* phi2 (cos (* 1/2 (PI)))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos phi2) (cos (neg phi2))))) (* 1/2 (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* 1/2 (+ (cos phi2) (cos (neg phi2)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (+ (cos phi2) (cos (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* 1/2 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (cos (neg phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* -1/2 (* phi1 (sin (neg phi2)))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* -1/6 (* phi1 (cos (neg phi2)))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (cos phi2)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (cos phi2))))))))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi2))
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2)))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (cos lambda1) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* -1/2 (* phi1 (cos (neg (+ phi2 (* 1/2 (PI))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (* -1/2 (* phi1 phi2)) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (cos (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* -1/2 (* phi1 (sin (+ phi2 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* phi1 (+ (* -1/2 (sin (+ phi2 (PI)))) (* -1/6 (* phi1 (cos (+ phi2 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi2 (PI))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (+ phi2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* 1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* (pow phi1 2) (+ (* 1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow phi1 2) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/120 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (sin phi2)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI)))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (* 1/2 (PI))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* -1 (* phi1 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1/2 (cos (* 1/2 (PI))))) (* -1/2 (sin (PI))))) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (sin (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/6 (* phi1 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (PI))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (cos (PI))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (+ (cos (PI)) (* -1/2 (* phi1 (sin (PI)))))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (+ (cos (PI)) (* phi1 (+ (* -1/2 (sin (PI))) (* -1/6 (* phi1 (cos (PI)))))))))))
#s(approx (+ phi1 (PI)) #s(hole binary64 (PI)))
#s(approx (+ phi1 (PI)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 1))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (pow phi1 2) #s(hole binary64 (pow phi1 2)))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi1 2))) (pow phi1 2))))
#s(approx (/ 1 (pow phi1 2)) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))) (* phi1 (+ (* -1/2 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))) (* 1/2 (* phi1 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))) (* phi1 (+ (* -1/2 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI))))))) (* 1/2 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (- (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi2))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) phi2)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* 1/6 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* 1/120 (* (cos phi2) (cos (neg lambda2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* -1/6 (* (pow phi1 2) (cos (neg lambda2))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* 1/120 (* (pow phi1 2) (cos (neg lambda2))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (neg lambda2)))) (* 1/120 (cos (neg lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* 13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (pow (cos (- lambda1 lambda2)) 3)))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow phi1 3)))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* 13/120 (pow phi1 2)) 1/2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 13/120 (* -41/3024 (pow phi1 2)))) 1/2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* 2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (/ (* (cos phi2) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/240 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/720 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/5040 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (- phi1 phi2))))
#s(approx (- phi1 phi2) #s(hole binary64 phi1))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (+ phi1 phi2))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi1))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1)))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (+ phi2 (PI))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (+ (/ phi2 phi1) (/ (PI) phi1))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 phi2) (/ phi2 (pow phi1 2))) (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (+ phi1 (PI)) #s(hole binary64 phi1))
#s(approx (+ phi1 (PI)) #s(hole binary64 (* phi1 (+ 1 (/ (PI) phi1)))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (- (/ 1 (pow phi1 2)) 1/2)))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg (+ phi2 (* -1 phi1))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi2 (* -1 phi1)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 phi2) (/ (cos (- lambda1 lambda2)) phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi2 (PI)) (* -1 phi1)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (PI)) phi1)) 1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (cos (- lambda1 lambda2)) (* -1 (/ phi2 phi1))) phi1)) (* -1/2 phi2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (- (PI) (* -1 phi1)))))
#s(approx (+ phi1 (PI)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (PI) phi1)) 1)))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (sin (PI)))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* -1/6 (* (pow phi2 2) (sin (PI))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* (pow phi2 2) (+ (* -1/6 (sin (PI))) (* 1/120 (* (pow phi2 2) (sin (PI))))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* (pow phi2 2) (+ (* -1/6 (sin (PI))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (PI)))) (* 1/120 (sin (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (* 1/24 lambda1))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (+ (* 1/24 lambda1) (* (pow phi2 2) (+ (* -1/720 lambda1) (* 1/720 lambda2)))))))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (* (pow phi2 2) (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (- (/ lambda1 lambda2) 1)) (* (pow phi2 2) (+ (* lambda2 (* (pow phi2 2) (- (* 1/24 (/ lambda1 lambda2)) 1/24))) (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (- (/ lambda1 lambda2) 1)) (* (pow phi2 2) (+ (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))) (* (pow phi2 2) (+ (* lambda2 (* (pow phi2 2) (+ 1/720 (* -1/720 (/ lambda1 lambda2))))) (* lambda2 (- (* 1/24 (/ lambda1 lambda2)) 1/24)))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (* -1/2 (/ lambda1 lambda2)))) (/ lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (- (* 1/24 (/ lambda1 lambda2)) 1/24))))) (/ lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (- (+ (* 1/24 (/ lambda1 lambda2)) (* (pow phi2 2) (+ 1/720 (* -1/720 (/ lambda1 lambda2))))) 1/24))))) (/ lambda1 lambda2)) 1)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* -1/2 (/ (* lambda1 (pow phi2 2)) lambda2)) (/ lambda1 lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ lambda1 lambda2)) (* 1/24 (/ (* lambda1 (pow phi2 2)) lambda2)))) (/ lambda1 lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/720 (/ (* lambda1 (pow phi2 2)) lambda2)) (* 1/24 (/ lambda1 lambda2)))))) (/ lambda1 lambda2))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* 1/2 (* phi2 (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/2 (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* -1 (* phi2 (cos phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/6 (* phi2 (cos phi1))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (cos phi1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (sin phi1)) (* -1/6 (* phi2 (cos phi1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (+ (* -1 (* phi2 (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (+ (* phi2 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (* (cos lambda1) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 0))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 0))
#s(approx (sin (neg phi2)) #s(hole binary64 (* -1 phi2)))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* 1/6 (pow phi2 2)) 1))))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* (pow phi2 2) (+ 1/6 (* -1/120 (pow phi2 2)))) 1))))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* (pow phi2 2) (+ 1/6 (* (pow phi2 2) (- (* 1/5040 (pow phi2 2)) 1/120)))) 1))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (* 1/2 (PI))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (sin (- phi1 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (- phi1 (* 1/2 (PI)))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (- phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (* 1/2 (PI)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow phi2 2) (sin lambda2))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow phi2 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow phi2 2) (sin lambda2))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow phi2 2) (+ (* -1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (pow phi2 2) (cos lambda2)))) (* lambda1 (cos lambda2)))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/24 (* lambda1 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (* (pow phi2 2) (cos lambda2)))) (* 1/24 (* lambda1 (cos lambda2))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* -1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (- (* 1/2 (PI)) phi1)))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (cos (+ phi1 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* -1/2 (* phi2 (sin (+ phi1 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* phi2 (+ (* -1/2 (sin (+ phi1 (PI)))) (* -1/6 (* phi2 (cos (+ phi1 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* 1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (sin phi1))) (* 1/2 (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* (pow phi2 2) (+ (* 1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/24 (sin phi1)) (* 1/720 (* (pow phi2 2) (sin phi1))))))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* -1/6 (pow phi2 2)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 1))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1 (pow phi2 4)) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) #s(hole binary64 (/ 1/2 (pow phi2 2))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* 1/24 (pow phi2 2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (* -1/720 (pow phi2 2)) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* 1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (cos (- lambda1 lambda2)))) (* 1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* 1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/24 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* 1/120 (pow phi2 2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (/ phi2 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* 1/2 (* phi2 (cos (- lambda1 lambda2)))) (/ 1 phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* phi2 (+ (* -1/6 (/ phi2 phi1)) (* 1/2 (cos (- lambda1 lambda2))))) (/ 1 phi1))))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ phi2 phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* -1/6 (/ (pow phi2 2) phi1)) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* 1/120 (/ (pow phi2 2) phi1)) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/5040 (/ (pow phi2 2) phi1)) (* 1/120 (/ 1 phi1)))) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow phi2 2))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow phi2 2))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/720 (* phi1 (pow phi2 2))) (* 1/24 phi1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* phi2 (- (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (+ (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/24 (* (cos (neg lambda2)) (sin phi1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (/ (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (* (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 2))) (/ (* (cos phi1) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1))))))) (* (pow (cos (- lambda1 lambda2)) 2) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/240 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/720 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/5040 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos lambda2) (sin lambda1))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/2 (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* -1 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2))))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (* 1/2 (PI)))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (sin (neg lambda2))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (neg lambda2))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* -1/2 (* (pow phi2 2) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (neg lambda2))) (* 1/24 (* (pow phi2 2) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (neg lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (neg lambda2)))) (* 1/24 (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* (sin phi2) (sin (PI)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2)))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (sin (neg phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ phi1 phi2) (+ 1 (* 1/2 (/ (PI) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi2 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/2 phi1)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (+ (/ phi1 phi2) (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 1/24))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- 1/24 (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (+ 1/24 (/ 1 (pow phi2 4)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) phi2))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin (+ phi1 (* 1/2 (PI))))) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (+ phi1 (* -1 phi2)))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi1 (* -1 phi2)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (* -1 phi2))))))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 (+ (sin phi2) (sin (* -1 phi2)))))
#s(approx (sin (neg phi2)) #s(hole binary64 (sin (* -1 phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 phi1) (/ (cos (- lambda1 lambda2)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi1 (PI)) (* -1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (PI)) phi2)) 1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (* 1/2 (pow phi1 2)) 1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) 1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) phi2))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))

Calls

12 calls:

Time	Variable		Point	Expression
141.0ms	lambda1	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) 1/2 (PI) phi2 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin (* 1/2 (PI))) (* (sin phi2) (sin (PI))) (sin (PI)) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) -1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (sin (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) -1/2 (* -1/6 (* lambda1 (cos (neg lambda2)))) -1/6 (* lambda1 (cos (neg lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/ (* lambda1 (cos phi2)) lambda2) (* lambda1 (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) 1 (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (+ (sin phi2) (sin (neg phi2))) (sin (neg phi2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)) (* lambda1 (* (cos lambda2) (cos phi2))) (* (cos lambda2) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (pow lambda1 3) 3 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/ lambda2 lambda1) (/ 1 (pow lambda1 2)) (pow lambda1 2) 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* -1/6 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* 1/2 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/ (sin lambda2) lambda1) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (* -1 (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* -1/2 (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin (neg lambda2)) (* -1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* -1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (- (* -1/2 (* lambda1 lambda2)) 1) (* -1/2 (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (+ (* -1/2 lambda1) (* 1/6 lambda2)) (* 1/6 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (* -1 (/ (sin (neg lambda2)) lambda1)) (/ (sin (neg lambda2)) lambda1) (* -1/2 (sin (neg lambda2))) (* 1/6 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos phi2) (sin phi1)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (cos lambda2)) (sin lambda2)) (* lambda1 (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (- (/ 1 lambda1) (/ 1 lambda2)) (/ 1 lambda1) (/ 1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* -1 (* (cos phi2) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (- (* 1/24 (pow phi2 2)) 1/2) (* 1/24 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (+ 1/24 (* -1/720 (pow phi2 2))) (* -1/720 (pow phi2 2)) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (- (* 1/120 (pow phi2 2)) 1/6) (* 1/120 (pow phi2 2)) 1/120 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (sin (+ phi1 (PI))) (+ phi1 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (* -1 phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (+ phi1 (/ (PI) 2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (* -1 (pow lambda2 3)) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- lambda1 lambda2) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))) (* (cos phi2) (sin (neg lambda2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
112.0ms	lambda2	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) 1/2 (PI) phi2 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin (* 1/2 (PI))) (* (sin phi2) (sin (PI))) (sin (PI)) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) -1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (sin (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) -1/2 (* -1/6 (* lambda1 (cos (neg lambda2)))) -1/6 (* lambda1 (cos (neg lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/ (* lambda1 (cos phi2)) lambda2) (* lambda1 (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) 1 (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (+ (sin phi2) (sin (neg phi2))) (sin (neg phi2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)) (* lambda1 (* (cos lambda2) (cos phi2))) (* (cos lambda2) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (pow lambda1 3) 3 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/ lambda2 lambda1) (/ 1 (pow lambda1 2)) (pow lambda1 2) 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* -1/6 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* 1/2 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/ (sin lambda2) lambda1) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (* -1 (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* -1/2 (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin (neg lambda2)) (* -1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* -1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (- (* -1/2 (* lambda1 lambda2)) 1) (* -1/2 (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (+ (* -1/2 lambda1) (* 1/6 lambda2)) (* 1/6 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (* -1 (/ (sin (neg lambda2)) lambda1)) (/ (sin (neg lambda2)) lambda1) (* -1/2 (sin (neg lambda2))) (* 1/6 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos phi2) (sin phi1)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (cos lambda2)) (sin lambda2)) (* lambda1 (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (- (/ 1 lambda1) (/ 1 lambda2)) (/ 1 lambda1) (/ 1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* -1 (* (cos phi2) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (- (* 1/24 (pow phi2 2)) 1/2) (* 1/24 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (+ 1/24 (* -1/720 (pow phi2 2))) (* -1/720 (pow phi2 2)) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (- (* 1/120 (pow phi2 2)) 1/6) (* 1/120 (pow phi2 2)) 1/120 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (sin (+ phi1 (PI))) (+ phi1 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (* -1 phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (+ phi1 (/ (PI) 2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (* -1 (pow lambda2 3)) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- lambda1 lambda2) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))) (* (cos phi2) (sin (neg lambda2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
110.0ms	lambda1	@	-inf	((atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) 1/2 (PI) phi2 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin (* 1/2 (PI))) (* (sin phi2) (sin (PI))) (sin (PI)) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) -1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (sin (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) -1/2 (* -1/6 (* lambda1 (cos (neg lambda2)))) -1/6 (* lambda1 (cos (neg lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/ (* lambda1 (cos phi2)) lambda2) (* lambda1 (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) 1 (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (+ (sin phi2) (sin (neg phi2))) (sin (neg phi2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)) (* lambda1 (* (cos lambda2) (cos phi2))) (* (cos lambda2) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (pow lambda1 3) 3 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/ lambda2 lambda1) (/ 1 (pow lambda1 2)) (pow lambda1 2) 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* -1/6 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* 1/2 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/ (sin lambda2) lambda1) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (* -1 (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* -1/2 (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin (neg lambda2)) (* -1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* -1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (- (* -1/2 (* lambda1 lambda2)) 1) (* -1/2 (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (+ (* -1/2 lambda1) (* 1/6 lambda2)) (* 1/6 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (* -1 (/ (sin (neg lambda2)) lambda1)) (/ (sin (neg lambda2)) lambda1) (* -1/2 (sin (neg lambda2))) (* 1/6 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos phi2) (sin phi1)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (cos lambda2)) (sin lambda2)) (* lambda1 (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (- (/ 1 lambda1) (/ 1 lambda2)) (/ 1 lambda1) (/ 1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* -1 (* (cos phi2) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (- (* 1/24 (pow phi2 2)) 1/2) (* 1/24 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (+ 1/24 (* -1/720 (pow phi2 2))) (* -1/720 (pow phi2 2)) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (- (* 1/120 (pow phi2 2)) 1/6) (* 1/120 (pow phi2 2)) 1/120 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (sin (+ phi1 (PI))) (+ phi1 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (* -1 phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (+ phi1 (/ (PI) 2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (* -1 (pow lambda2 3)) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- lambda1 lambda2) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))) (* (cos phi2) (sin (neg lambda2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
106.0ms	lambda1	@	0	((atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) 1/2 (PI) phi2 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin (* 1/2 (PI))) (* (sin phi2) (sin (PI))) (sin (PI)) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) -1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (sin (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) -1/2 (* -1/6 (* lambda1 (cos (neg lambda2)))) -1/6 (* lambda1 (cos (neg lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/ (* lambda1 (cos phi2)) lambda2) (* lambda1 (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) 1 (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (+ (sin phi2) (sin (neg phi2))) (sin (neg phi2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)) (* lambda1 (* (cos lambda2) (cos phi2))) (* (cos lambda2) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (pow lambda1 3) 3 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/ lambda2 lambda1) (/ 1 (pow lambda1 2)) (pow lambda1 2) 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* -1/6 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* 1/2 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/ (sin lambda2) lambda1) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (* -1 (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* -1/2 (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin (neg lambda2)) (* -1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* -1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (- (* -1/2 (* lambda1 lambda2)) 1) (* -1/2 (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (+ (* -1/2 lambda1) (* 1/6 lambda2)) (* 1/6 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (* -1 (/ (sin (neg lambda2)) lambda1)) (/ (sin (neg lambda2)) lambda1) (* -1/2 (sin (neg lambda2))) (* 1/6 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos phi2) (sin phi1)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (cos lambda2)) (sin lambda2)) (* lambda1 (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (- (/ 1 lambda1) (/ 1 lambda2)) (/ 1 lambda1) (/ 1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* -1 (* (cos phi2) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (- (* 1/24 (pow phi2 2)) 1/2) (* 1/24 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (+ 1/24 (* -1/720 (pow phi2 2))) (* -1/720 (pow phi2 2)) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (- (* 1/120 (pow phi2 2)) 1/6) (* 1/120 (pow phi2 2)) 1/120 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (sin (+ phi1 (PI))) (+ phi1 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (* -1 phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (+ phi1 (/ (PI) 2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (* -1 (pow lambda2 3)) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- lambda1 lambda2) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))) (* (cos phi2) (sin (neg lambda2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))
103.0ms	lambda2	@	inf	((atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) lambda1 lambda2 (sin (- (* 1/2 (PI)) phi2)) (- (* 1/2 (PI)) phi2) (* 1/2 (PI)) 1/2 (PI) phi2 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) phi1 (sin phi2) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin (* 1/2 (PI))) (* (sin phi2) (sin (PI))) (sin (PI)) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (* (cos lambda2) (sin lambda1)) (cos lambda2) (sin lambda1) (* (cos lambda1) (sin lambda2)) (cos lambda1) (sin lambda2) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) -1 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (sin (neg lambda2)) (neg lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) -1/2 (* -1/6 (* lambda1 (cos (neg lambda2)))) -1/6 (* lambda1 (cos (neg lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/ (* lambda1 (cos phi2)) lambda2) (* lambda1 (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (+ (cos lambda1) (* lambda2 (sin lambda1))) (* lambda2 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (sin phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (sin (+ phi1 (* 1/2 (PI)))) (+ phi1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) 1 (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (sin (+ phi1 phi2)) (+ phi1 phi2) 2 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (+ (sin phi2) (sin (neg phi2))) (sin (neg phi2)) (neg phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (- phi1 phi2)) (- phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (sin (+ phi1 phi2)) (+ phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (- phi1 (+ phi2 (/ (PI) 2)))) (- phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (/ (PI) 2) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+ phi1 (+ phi2 (/ (PI) 2))) (+ phi2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (sin (+ phi2 (* 1/2 (PI)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (* (cos phi2) (sin lambda2)) (* lambda1 (* (cos lambda2) (cos phi2))) (* (cos lambda2) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (pow lambda1 3) 3 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/ lambda2 lambda1) (/ 1 (pow lambda1 2)) (pow lambda1 2) 1/6 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* -1/6 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (+ (* -1/6 lambda1) (* 1/2 lambda2)) (* 1/2 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/ (sin lambda2) lambda1) (* 1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)) (* phi1 phi2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* phi1 phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (sin (+ phi1 (/ (PI) 2))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (- (* (* phi2 phi2) 1/24) 1/2) (* (* phi2 phi2) 1/24) (* phi2 phi2) 1/24 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (cos phi1) (sin phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda2) (* lambda1 (sin lambda2))) (* lambda1 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (- (+ phi2 (/ (PI) 2)) phi1)) (- (+ phi2 (/ (PI) 2)) phi1) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (* -1 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (- lambda1 lambda2)) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin (+ phi2 (/ (PI) 2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (* -1/2 lambda2) (neg (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (* -1 (/ (cos lambda1) lambda2)) (/ (cos lambda1) lambda2) (* -1/2 (cos lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (* -1/2 (* lambda2 (cos lambda1))) (* lambda2 (cos lambda1)) (* -1 (sin lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin lambda1) (sin lambda2)) (sin lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin lambda1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos lambda1) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin (neg lambda2)) (* -1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (neg lambda1) (neg (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* -1 lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (- (* -1/2 (* lambda1 lambda2)) 1) (* -1/2 (* lambda1 lambda2)) (* lambda1 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (+ (* -1/2 lambda1) (* 1/6 lambda2)) (* 1/6 lambda2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (* -1 (/ (sin (neg lambda2)) lambda1)) (/ (sin (neg lambda2)) lambda1) (* -1/2 (sin (neg lambda2))) (* 1/6 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (* (cos lambda1) (cos phi2)) (sin phi1)) (* (cos phi2) (sin phi1)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (* -1/6 (* lambda1 (cos (neg lambda2)))) (* lambda1 (cos (neg lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (cos lambda2)) (sin lambda2)) (* lambda1 (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+ 1 (* -1 (/ lambda1 lambda2))) (* -1 (/ lambda1 lambda2)) (/ lambda1 lambda2) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+ 1 (* -1 (/ lambda2 lambda1))) (* -1 (/ lambda2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (- (/ 1 lambda1) (/ 1 lambda2)) (/ 1 lambda1) (/ 1 lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* lambda2 (- (/ lambda1 lambda2) 1)) (- (/ lambda1 lambda2) 1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* -1 (* (cos phi2) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (sin (- lambda1 lambda2)) (- lambda1 lambda2) (* (- (/ lambda1 lambda2) 1) lambda2) (- (/ lambda1 lambda2) 1) (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (- (/ 1 lambda2) (/ 1 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (+ 1 (* -1/6 (pow phi2 2))) (* -1/6 (pow phi2 2)) (pow phi2 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (pow phi2 4) 4 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (+ 1/24 (/ 1 (pow phi2 4))) (/ 1 (pow phi2 4)) (* 1/2 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (- (* 1/24 (pow phi2 2)) 1/2) (* 1/24 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (+ 1/24 (* -1/720 (pow phi2 2))) (* -1/720 (pow phi2 2)) -1/720 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (cos phi2) (+ (* (* phi2 phi2) -1/2) 1) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (cos phi2) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+ 1 (* -1/2 (pow phi2 2))) (* -1/2 (pow phi2 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (* -1 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin phi2) (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (- (* 1/120 (pow phi2 2)) 1/6) (* 1/120 (pow phi2 2)) 1/120 (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/ (sin phi2) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+ (cos lambda1) (* lambda2 (sin lambda1))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (+ lambda2 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (- (+ lambda1 (* 1/2 (PI))) lambda2) (+ lambda1 (* 1/2 (PI))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (cos (- (* 1/2 (PI)) phi1)) (- (* 1/2 (PI)) phi1) (sin (+ phi1 (PI))) (+ phi1 (PI)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (cos (- lambda1 lambda2)) (sin phi1)) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (cos phi1) (sin phi2)) (cos phi1) (+ (* (* phi1 phi1) -1/2) 1) (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2) (/ 1 (pow phi1 2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (* (sin phi1) (cos phi2)) (* phi1 (cos phi2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (- (+ lambda2 (* 1/2 (PI))) lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos (neg lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (* -1/2 lambda1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (* lambda2 (+ lambda1 (* -1/2 lambda2))) (+ lambda1 (* -1/2 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (+ (* (sin lambda1) lambda2) (cos lambda1)) (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (* lambda1 (+ lambda2 (* -1/2 lambda1))) (+ lambda2 (* -1/2 lambda1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+ (+ phi2 (/ (PI) 2)) phi1) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (cos (- (+ phi1 (/ (PI) 2)) phi2)) (- (+ phi1 (/ (PI) 2)) phi2) (* -1 phi2) (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+ (+ phi1 (/ (PI) 2)) phi2) (+ phi1 (/ (PI) 2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (neg (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow (* (sin phi2) (cos phi1)) 2) (* (sin phi2) (cos phi1)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (* (cos (neg lambda2)) (sin phi1)) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (sin (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (cos (- lambda1 lambda2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (sin (+ (neg phi2) (/ (PI) 2))) (+ (neg phi2) (/ (PI) 2)) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin (+ (/ (PI) 2) (/ (PI) 2))) (+ (/ (PI) 2) (/ (PI) 2)) (* (cos phi2) (sin (/ (PI) 2))) (sin (/ (PI) 2)) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (* -1 (pow lambda2 3)) (pow lambda2 3) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (+ lambda2 (/ (pow lambda2 2) lambda1)) (/ (pow lambda2 2) lambda1) (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (+ (* lambda2 lambda2) (* lambda1 lambda2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (* (cos (- lambda1 lambda2)) (cos phi2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (cos lambda1) (cos lambda2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+ (- lambda1 lambda2) (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (cos (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (sin (+ lambda1 (/ (PI) 2))) (+ lambda1 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- lambda1 lambda2) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+ phi2 (/ (PI) 2)) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))) (* (cos phi2) (sin (neg lambda2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (cos (+ phi2 (/ (PI) 2))))

rewrite3.1s (5.8%)

Memory

30.9MiB live, 4 724.6MiB allocated; 509ms collecting garbage

Iterations

Useful iterations: 0 (0.0ms)

Iter	Nodes	Cost
0	14796	205657
0	16787	205657
0	16787	201344

Stop Event

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

Counts

5 432 → 5 474

Calls

Call 1

Inputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
phi2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(cos.f64 phi2)
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 phi1)
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))
(sin.f64 (PI.f64))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda2) (sin.f64 lambda1))
(cos.f64 lambda2)
(sin.f64 lambda1)
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(cos.f64 lambda1)
(sin.f64 lambda2)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(literal -1 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
(cos.f64 (neg.f64 lambda2))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(literal -1/2 binary64)
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(literal -1/6 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 phi2 (cos.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))
(.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))
(fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2))
(/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2)
(*.f64 lambda1 (cos.f64 phi2))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(*.f64 lambda2 (sin.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))
#s(approx (sin phi1) phi1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* phi2 (cos phi1)) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sin.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
#s(literal 2 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
(+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
(+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))
(sin.f64 (neg.f64 phi2))
(neg.f64 phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 #s(approx (- phi1 phi2) phi1))
#s(approx (- phi1 phi2) phi1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2)))
(sin.f64 #s(approx (+ phi1 phi2) phi2))
#s(approx (+ phi1 phi2) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)))
(cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
(fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
(*.f64 (cos.f64 phi2) (sin.f64 lambda2))
(.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
(*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
#s(literal 3 binary64)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))
(fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(/.f64 lambda2 lambda1)
(/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 1/6 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ ( -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ ( -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))
(*.f64 #s(literal -1/6 binary64) lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
(.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))
(*.f64 #s(literal 1/2 binary64) lambda2)
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(/.f64 #s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1))
(/.f64 (sin.f64 lambda2) lambda1)
(*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))
(*.f64 phi1 phi2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(*.f64 phi2 phi2)
#s(literal 1/24 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(*.f64 lambda1 (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(*.f64 lambda2 (cos.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1)))
(fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))
(.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))
(pow.f64 lambda2 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
(/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2)
(fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
(-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
(.f64 #s(literal -1/2 binary64) #s(approx ( lambda2 (cos lambda1)) lambda2))
#s(approx (* lambda2 (cos lambda1)) lambda2)
(*.f64 #s(literal -1 binary64) (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))
(*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))
#s(approx (sin lambda2) lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1))
#s(approx (sin lambda1) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(neg.f64 lambda1)
(neg.f64 (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
(+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
(+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))))
(.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))
(-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))
(.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2)))
(fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))
(*.f64 #s(literal 1/6 binary64) lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
(.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
(.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))
(/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1)
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
(/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1)
(fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))
(/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)
(*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))
(*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (cos phi2) #s(literal 1 binary64))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 phi2) (sin.f64 phi1))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)))
(+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ ( -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ ( -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)))))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))
(.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
(-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))
(*.f64 lambda1 (cos.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
(-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))
(.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)))
(*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))
#s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))
(.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))
(/.f64 #s(literal 1 binary64) lambda1)
(/.f64 #s(literal 1 binary64) lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))
(*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))
(.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
#s(literal -1/720 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
(-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))
(*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
#s(literal 1/120 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))
(.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))
(/.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))
(+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))))
(.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))))
(*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))
(-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
(-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))
(cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(sin.f64 (+.f64 phi1 (PI.f64)))
(+.f64 phi1 (PI.f64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1))
#s(approx (* phi1 (cos phi2)) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
(*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2))
#s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 phi1 #s(literal 2 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
(*.f64 phi1 (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))
#s(approx (cos (neg lambda2)) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
(.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))
(+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 3 binary64))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64)))
(pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2)))
(sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2))
(sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))))
(/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
(*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
(*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
(+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
(/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx ( (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2)))
(*.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))
(sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) lambda1)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2)))
(*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
(.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- lambda1 lambda2) #s(hole binary64 (- lambda1 lambda2)))
#s(approx lambda1 #s(hole binary64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* -1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg lambda2))) (* 1/6 (* lambda1 (sin (neg lambda2)))))) (sin (neg lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (sin lambda1) #s(hole binary64 lambda1))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* 1/120 (pow lambda1 2)) 1/6))))))
#s(approx (sin lambda1) #s(hole binary64 (* lambda1 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/120 (* -1/5040 (pow lambda1 2)))) 1/6))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow lambda1 2) (sin lambda2))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow lambda1 2) (sin lambda2))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/2 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (cos lambda1) #s(hole binary64 1))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* 1/24 (pow lambda1 2)) 1/2)))))
#s(approx (cos lambda1) #s(hole binary64 (+ 1 (* (pow lambda1 2) (- (* (pow lambda1 2) (+ 1/24 (* -1/720 (pow lambda1 2)))) 1/2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* -1/2 (* lambda1 (cos lambda2))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (sin lambda2) (* lambda1 (+ (* -1/2 (cos lambda2)) (* -1/6 (* lambda1 (sin lambda2))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* -1/6 (* (pow lambda1 2) (sin lambda2)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* 1/120 (* (pow lambda1 2) (sin lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (* (pow lambda1 2) (+ (* -1/6 (sin lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (sin lambda2))) (* 1/120 (sin lambda2))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (neg lambda2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (* (sin phi1) (sin (neg lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos (neg lambda2)) (sin phi1))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* 1/2 (* (cos (neg lambda2)) (sin phi1))))) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/2 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* -1 (cos phi2))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (/ (* lambda1 (cos phi2)) lambda2)))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* 1/2 (* lambda1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))) (* lambda1 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 1))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/6 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* 1/120 (* (pow lambda1 2) lambda2))))))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda1 (+ lambda2 (* (pow lambda1 2) (+ (* -1/6 lambda2) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) lambda2)) (* 1/120 lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1 (* (cos lambda2) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (sin phi1))) (* lambda1 (+ (* -1 (* (sin lambda2) (sin phi1))) (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (sin phi1))) (* lambda1 (+ (* -1 (* (sin lambda2) (sin phi1))) (* lambda1 (+ (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* 1/2 (* (cos lambda2) (sin phi1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2))))) (* -1/6 (* lambda1 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* -1/4 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* 1/48 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/4 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/1440 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/48 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* -1/2 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* 1/24 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (+ (sin (- phi1 phi2)) (* (pow lambda1 2) (+ (* -1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* 1/24 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (sin lambda2)))) (* (cos lambda2) (cos phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (cos phi2)))) (* 1/2 (* (cos phi2) (sin lambda2))))) (* (cos lambda2) (cos phi2)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* -1 (* (cos phi2) (sin lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (pow lambda1 3) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ (+ 1 (* 1/2 (* lambda1 lambda2))) (pow lambda1 2))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (/ (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (pow lambda1 2))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ (+ 1 (* 1/2 (* lambda1 lambda2))) (pow lambda1 2))))
#s(approx (/ lambda2 lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ 1 (pow lambda1 2)) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (pow lambda1 2) #s(hole binary64 (pow lambda1 2)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* 1/2 (* lambda1 lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (* -1/6 lambda1) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* -1 (* lambda1 (sin (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2)))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (sin (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1 (sin (neg lambda2))) (* -1/2 (* lambda1 (cos (neg lambda2))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* -1 (/ (sin lambda2) (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ (+ (* -1 (sin lambda2)) (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (sin lambda2) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (/ (+ (sin lambda2) (* -1 (* lambda1 (cos lambda2)))) lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ (sin lambda2) lambda1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos phi2) (cos (neg lambda2)))))) (* -1 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (sin (neg lambda2)))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* 1/2 (* lambda1 (cos (neg lambda2))))))) (cos (neg lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda1 (+ (sin (neg lambda2)) (* lambda1 (- (* -1/6 (* lambda1 (sin (neg lambda2)))) (* -1/2 (cos (neg lambda2)))))))) (cos (neg lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (+ (* (cos phi1) (sin phi2)) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1))))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* 1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/2 (* (cos phi2) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* 1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/24 (* (cos phi2) (sin phi1))) (* 1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 -1))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* 1/2 (pow lambda1 2)) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* -1/24 (pow lambda1 2)))) 1)))
#s(approx (neg (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/2 (* (pow lambda1 2) (- (* 1/720 (pow lambda1 2)) 1/24)))) 1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* lambda1 (+ (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (* 1/2 (PI))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* -1 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* -1/2 (* lambda1 (sin (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda2 (* 1/2 (PI)))) (* lambda1 (+ (* -1 (cos (+ lambda2 (* 1/2 (PI))))) (* lambda1 (+ (* -1/2 (sin (+ lambda2 (* 1/2 (PI))))) (* 1/6 (* lambda1 (cos (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda1 (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (- (* 1/6 (* lambda1 (* (sin lambda2) (sin phi1)))) (* -1/2 (* (cos lambda2) (sin phi1))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda2) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (* (sin lambda2) (sin phi1))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (sin phi1)))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (sin phi1))) (* -1/6 (* lambda1 (* (sin lambda2) (sin phi1)))))) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda1 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda1 2) (cos phi2))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda1 2) (cos phi2))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda1 2) (+ (* -1/2 (cos phi2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* -1/4 (* (cos (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* 1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* 1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* lambda1 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* lambda1 (+ (* 1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* 1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* 1/2 (* lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* -1/24 (* (pow lambda1 2) lambda2)) (* 1/2 lambda2))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1 lambda2) (* (pow lambda1 2) (+ (* 1/2 lambda2) (* (pow lambda1 2) (+ (* -1/24 lambda2) (* 1/720 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 lambda2))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* 1/24 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (+ lambda2 (* (pow lambda1 2) (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) lambda2)) (* 1/24 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 -1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* 1/2 lambda1))) 1)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* lambda1 (+ (* -1/2 lambda2) (* lambda1 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))) 1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (* 1/4 (pow lambda2 2)) 1/2))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2))) 1/2))))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 lambda2) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* lambda1 (* (pow lambda2 2) (- 1/4 (* 1/2 (/ 1 (pow lambda2 2)))))))) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* (pow lambda2 2) (- 1/4 (* 1/2 (/ 1 (pow lambda2 2))))))))) (* (pow lambda2 2) (- (/ 1 (pow lambda2 2)) 1/2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (/ 1 (pow lambda2 2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- 1/4 (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2))) 1/2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (- (+ (* lambda1 (+ (* lambda1 (- (+ 1/4 (* -1/6 (/ lambda1 lambda2))) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2))) 1/2)))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ -1 (pow lambda2 2))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* -1 (/ lambda1 lambda2)) (/ 1 (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* lambda1 (- (* 1/2 (/ lambda1 (pow lambda2 2))) (/ 1 lambda2))) (/ 1 (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (- (* lambda1 (- (* lambda1 (+ (* 1/6 (/ lambda1 lambda2)) (* 1/2 (/ 1 (pow lambda2 2))))) (/ 1 lambda2))) (/ 1 (pow lambda2 2)))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (/ -1 lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* -1 lambda1) (/ 1 lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* lambda1 (- (* 1/2 (/ lambda1 lambda2)) 1)) (/ 1 lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (- (* lambda1 (- (* lambda1 (+ (* 1/6 lambda1) (* 1/2 (/ 1 lambda2)))) 1)) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (/ -1 lambda2)))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* 1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* (pow lambda1 2) (+ (* -1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (- (* (pow lambda1 2) (+ (* (pow lambda1 2) (- (* 1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* 1/24 (/ (pow lambda1 2) lambda2)) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (+ (* (pow lambda1 2) (- (* (pow lambda1 2) (+ (* -1/720 (/ (pow lambda1 2) lambda2)) (* 1/24 (/ 1 lambda2)))) (* 1/2 (/ 1 lambda2)))) (/ 1 lambda2))))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 -1/2))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* 1/4 (pow lambda1 2)) 1/2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/4 (* -1/48 (pow lambda1 2)))) 1/2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (- (* (pow lambda1 2) (+ 1/4 (* (pow lambda1 2) (- (* 1/1440 (pow lambda1 2)) 1/48)))) 1/2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* 1/4 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ lambda2 (* lambda1 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda2 2)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/4 lambda2))))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* 1/4 (* (pow lambda1 2) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* -1/48 (* (pow lambda1 2) lambda2)) (* 1/4 lambda2))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 lambda2) (* (pow lambda1 2) (+ (* 1/4 lambda2) (* (pow lambda1 2) (+ (* -1/48 lambda2) (* 1/1440 (* (pow lambda1 2) lambda2)))))))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 lambda1)))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* 1/6 (pow lambda1 2)) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* -1/120 (pow lambda1 2)))) 1))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* lambda1 (- (* (pow lambda1 2) (+ 1/6 (* (pow lambda1 2) (- (* 1/5040 (pow lambda1 2)) 1/120)))) 1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* 1/2 (* lambda1 lambda2))))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 (+ (* 1/2 lambda2) (* lambda1 (- (* 1/12 (pow lambda2 2)) 1/6))))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* lambda1 (sin lambda2)))))
#s(approx (neg lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ (* -1 lambda2) (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (+ (* -1 lambda2) (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 -1))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (* -1/2 (* lambda1 lambda2)) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* lambda1 lambda2) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/2 (pow lambda2 2)))) (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (+ (* -1/2 (* lambda1 (pow lambda2 2))) (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* 1/6 (pow lambda2 2)) 1)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/6 (pow lambda2 2))) 1)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* 1/6 (pow lambda2 2))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (+ (* -1/2 (* lambda1 lambda2)) (* 1/6 (pow lambda2 2)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* 1/6 lambda2)))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/6 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (sin (neg lambda2)))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2)))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* lambda1 (+ (* 1/6 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2))))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) (pow lambda1 3)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* 1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* lambda1 (+ (* -1 (cos (neg lambda2))) (* lambda1 (+ (* 1/6 (* lambda1 (cos (neg lambda2)))) (* 1/2 (sin (neg lambda2)))))))) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (sin (neg lambda2)) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (pow lambda1 3))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 3))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (sin (neg lambda2)) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (pow lambda1 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (pow lambda1 2))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) (pow lambda1 2))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) lambda1))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (/ (+ (* -1 (sin (neg lambda2))) (* -1 (* lambda1 (cos (neg lambda2))))) lambda1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* -1 (/ (sin (neg lambda2)) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (/ (sin (neg lambda2)) lambda1)))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (cos lambda2)) (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))) (sin lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (cos lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* 1/2 (* lambda1 (sin lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2)))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 (sin lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* lambda1 (+ (* -1/6 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 lambda2))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (* -1 (/ lambda1 lambda2)) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (/ lambda1 lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda1)))
#s(approx (* -1 (/ lambda2 lambda1)) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 -1))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 -1))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 1))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (+ 1 (* -1 (/ lambda1 lambda2)))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ 1 lambda1)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda1)))
#s(approx (/ 1 lambda1) #s(hole binary64 (/ 1 lambda1)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 -1))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ -1 lambda1)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ (- (/ lambda1 lambda2) 1) lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))) (* 1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))))))) (* phi1 (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos phi2) (cos (neg lambda2)))) (* 1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))))))) (* (cos phi2) (cos (neg lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (* phi1 (sin (neg lambda2)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (cos (neg lambda2))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (sin (neg lambda2))))) (* 1/2 (* phi1 (cos (neg lambda2)))))) (* phi1 (sin (neg lambda2))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos phi1) (sin phi2))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/6 (* lambda1 (* (sin phi1) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))) (* (cos (neg lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* 1/2 (* lambda1 (* phi1 (* (cos phi2) (cos (neg lambda2)))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* 1/2 (* phi1 (* (cos phi2) (cos (neg lambda2))))))) (* phi1 (* (cos phi2) (sin (neg lambda2)))))) (* phi1 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (* (cos phi2) (sin (neg lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg lambda2)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (sin (neg lambda2))))) (* 1/2 (* (cos phi2) (cos (neg lambda2)))))) (* (cos phi2) (sin (neg lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (* (sin phi1) (sin (neg lambda2)))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (cos (neg lambda2)) (sin phi1)))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (sin phi1))))) (* -1 (* (sin phi1) (sin (neg lambda2)))))) (* phi2 (cos phi1))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow lambda1 2) (cos lambda2))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow lambda1 2) (cos lambda2))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/2 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/720 (* (pow lambda1 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/2 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* 1/4 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/2 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* 1/2 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* -1/12 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/4 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/6 (* lambda1 (* (sin (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))) (* (cos (neg lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (+ (* -1/2 (pow lambda2 2)) (* lambda1 lambda2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 1))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* lambda1 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 lambda1)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (* -1/2 lambda1) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* 1/2 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 lambda2))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (+ lambda2 (* -1 lambda1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (+ (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* 1/6 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2)))))))) (+ (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* 2 (/ (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* -1/2 (/ (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))))) (* -1 (/ (* (cos phi2) (* (sin phi1) (* (sin (neg lambda2)) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) 2))))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (/ (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* 2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* -1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* lambda1 (+ (* -1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2)))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1 (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))))) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg lambda2)) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (+ (* lambda1 (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (pow (cos (neg lambda2)) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* -1 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* lambda1 (+ (* -1/2 (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* 1/6 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (sin (neg lambda2))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))))))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2))))) (* lambda1 (+ (* lambda1 (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg lambda2)) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* -2 (* lambda1 (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (pow (cos (neg lambda2)) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* lambda1 (+ (* -1 (pow (cos (neg lambda2)) 2)) (+ (* lambda1 (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (pow (sin (neg lambda2)) 2)))))) (pow (cos (neg lambda2)) 2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (* lambda1 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (sin (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))) (+ (* 1/6 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (+ (* (cos (neg lambda2)) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))) (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos (neg lambda2)) 3)) (+ (* 2 (* (cos (neg lambda2)) (pow (sin (neg lambda2)) 2))) (* (cos (neg lambda2)) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2))))))) (+ (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -2 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2)))) (* -1 (* (pow (cos (neg lambda2)) 2) (sin (neg lambda2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))) (/ (* (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))))) (/ (* (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))) (/ (* (pow (cos phi2) 3) (* (pow (cos (neg lambda2)) 3) (pow (sin phi1) 3))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda1 (+ (* -2 (* (pow (cos phi2) 2) (* (cos (neg lambda2)) (* (pow (sin phi1) 2) (sin (neg lambda2)))))) (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda1 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* 1/3 (* (cos (neg lambda2)) (sin (neg lambda2)))) (* (cos (neg lambda2)) (sin (neg lambda2)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos (neg lambda2)) 2)) (pow (sin (neg lambda2)) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos phi2) 2) (* (pow (cos (neg lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2)))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda1 (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda2) (* (sin phi1) (sin phi2))))))) (* (cos lambda2) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda2) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1)))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos lambda2) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos lambda2) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin phi1))))))) (* (cos phi2) (* (sin lambda2) (sin phi1))))) (* (cos lambda2) (* (cos phi2) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (+ (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))) (* 1/2 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (neg lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2)))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))) (* (cos (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))) (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/6 (* lambda1 (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (cos (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin (neg lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (* (cos phi2) (cos (* -1 lambda2)))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (cos phi2) (sin (* -1 lambda2))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (cos phi2) (sin (* -1 lambda2)))) (* -1/6 (* lambda1 (* (cos phi2) (cos (* -1 lambda2))))))) (* (cos phi2) (cos (* -1 lambda2))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 lambda2)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (- (pow lambda1 3) (pow lambda2 3))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 (+ lambda1 lambda2)) (pow lambda2 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (pow lambda2 2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda2 2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (/ (+ (* lambda1 lambda2) (pow lambda2 2)) lambda1)))
#s(approx (/ (pow lambda2 2) lambda1) #s(hole binary64 (/ (pow lambda2 2) lambda1)))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1/6 (* (pow lambda1 2) (cos lambda2)))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/120 (* (pow lambda1 2) (cos lambda2)))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* (pow lambda1 2) (+ (* -1/5040 (* (pow lambda1 2) (cos lambda2))) (* 1/120 (cos lambda2))))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (- (* 1/2 (* lambda1 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))) (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda1 (- (* lambda1 (- (* -1/6 (* lambda1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI)))))))) (* -1 (* (cos (+ lambda2 (* 1/2 (PI)))) (sin phi1))))) (* phi2 (cos phi1))) (* (sin phi1) (sin (+ lambda2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda2))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (cos (- (* 1/2 (PI)) lambda2))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* -1/2 (* lambda1 (sin (- (* 1/2 (PI)) lambda2)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (cos (- (* 1/2 (PI)) lambda2)) (* lambda1 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda2))) (* -1/6 (* lambda1 (cos (- (* 1/2 (PI)) lambda2)))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda1 (+ (* lambda1 (+ (* -1/6 (* lambda1 (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/2 (* (sin lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* 1/2 (* lambda1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (+ (* lambda1 (+ (* 1/2 (* (cos phi2) (* (sin lambda2) (sin (* 1/2 (PI)))))) (* lambda1 (* (cos phi2) (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2)))))))) (* (cos phi2) (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (* -1 (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (cos lambda2) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* 1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* lambda1 (- (+ (cos lambda2) (* lambda1 (- (* lambda1 (- (* -1/6 (cos lambda2)) (* -1/6 (* (cos (* 1/2 (PI))) (sin lambda2))))) (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* -1/2 (* lambda1 (* (sin lambda2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ (* lambda1 (+ (* -1/2 (* (sin lambda2) (sin (* 1/2 (PI))))) (* -1/6 (* lambda1 (* (cos (* 1/2 (PI))) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (sin lambda2)))) (* (sin lambda2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* -1/2 (* lambda1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* lambda1 (+ (cos (* 1/2 (PI))) (* lambda1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* lambda1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (* lambda1 (+ (* 1/2 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (+ (sin (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* lambda1 (- (* -1/6 (sin (- (+ phi2 (* 1/2 (PI))) lambda2))) (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))) (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* lambda1 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))) (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* -1 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (- (+ phi2 (* 1/2 (PI))) lambda2)))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ phi2 (* 1/2 (PI))) lambda2)) (* lambda1 (- (* lambda1 (+ (* -1/2 (cos (- (+ phi2 (* 1/2 (PI))) lambda2))) (* 1/6 (* lambda1 (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))) (sin (- (+ phi2 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda1 (+ (* 1/2 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* lambda1 (+ (* 1/2 (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))))))) (* 1/2 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2)))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (* (cos phi2) (cos (neg lambda2))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (+ (* lambda1 (- (+ (* lambda1 (- (+ (* -1/2 (cos (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (+ (* -1/2 (* (cos phi2) (sin (neg lambda2)))) (* lambda1 (- (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (+ (* -1/6 (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI))))))) (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (cos (neg lambda2)))) (+ (sin (neg (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))) (* (cos phi2) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda1 (- (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda1 (- (* 1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/6 (* (cos phi2) (cos (neg lambda2))))))) (* -1/2 (* (cos phi2) (sin (neg lambda2))))))) (* (cos phi2) (cos (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* -1/2 (* lambda1 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda1 (+ (* -1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2)))) (* lambda1 (+ (* -1/2 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda1 (* (cos (+ phi2 (* 1/2 (PI)))) (sin (neg lambda2))))))))) (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (- lambda1 lambda2) #s(hole binary64 lambda1))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (sin lambda1) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* (cos lambda1) (sin lambda2))))
#s(approx (cos lambda1) #s(hole binary64 (cos lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* (sin lambda1) (sin lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 (* lambda1 (cos (neg lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda1 (+ (cos phi2) (* -1 (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (/ (* lambda1 (cos phi2)) lambda2)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* lambda1 (+ (* -1 (/ (cos phi2) lambda1)) (/ (cos phi2) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* lambda2 (sin lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ phi2 (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (* (cos lambda2) (cos phi2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (* (cos phi2) (sin lambda2)) lambda1)) (* (cos lambda2) (cos phi2))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ lambda2 (pow lambda1 3))) (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 -1/6))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (* 1/2 (/ lambda2 lambda1)) 1/6)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* 1/2 (/ lambda2 lambda1))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1/6 (pow lambda1 3))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* (pow lambda1 2) (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1/6))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/2 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2))) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (cos (neg lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 (* lambda1 (cos (neg lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* lambda1 (+ (* -1 (/ (sin (neg lambda2)) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) (sin lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (sin lambda2) (pow lambda1 2))) (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (cos lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (* -1 (cos lambda2))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (neg (cos lambda1)) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (/ lambda2 lambda1)) 1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (* lambda2 (cos lambda1)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (cos (neg lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* lambda1 (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) #s(hole binary64 (* -1 (/ (cos lambda1) lambda2))))
#s(approx (/ (cos lambda1) lambda2) #s(hole binary64 (/ (cos lambda1) lambda2)))
#s(approx (* -1/2 (cos lambda1)) #s(hole binary64 (* -1/2 (cos lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (* -1 (sin lambda1)) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (sin lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* lambda1 (+ (sin lambda2) (/ (cos lambda2) lambda1)))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* lambda1 (+ 1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (pow lambda2 2)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* lambda1 (+ (* -1 (/ lambda2 lambda1)) (* -1/2 (pow lambda2 2))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* lambda1 (- (* -1/2 lambda2) (/ 1 lambda1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* lambda1 (+ 1 (+ (* -1/2 (pow lambda2 2)) (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda1 (+ (* -1/2 (pow lambda2 2)) (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* lambda1 (- (+ (* -1/2 lambda2) (* 1/6 (/ (pow lambda2 2) lambda1))) (/ 1 lambda1)))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* -1/2 (* lambda1 lambda2))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/2 lambda2) (* 1/6 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* lambda1 (- (* 1/6 (/ lambda2 lambda1)) 1/2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (/ (cos (neg lambda2)) (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (+ (* -1/6 (cos (neg lambda2))) (+ (/ (cos (neg lambda2)) (pow lambda1 2)) (/ (sin (neg lambda2)) (pow lambda1 3))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* 1/6 (* (pow lambda1 3) (cos (neg lambda2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* -1 (/ (sin (neg lambda2)) (pow lambda1 3))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (* 1/6 (cos (neg lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (cos (neg lambda2)) (pow lambda1 2))) (+ (* -1 (/ (sin (neg lambda2)) (pow lambda1 3))) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1/2 (/ (sin (neg lambda2)) lambda1))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2)))) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (sin (neg lambda2))) (+ (/ (cos (neg lambda2)) lambda1) (/ (sin (neg lambda2)) (pow lambda1 2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (cos (neg lambda2)) lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (* -1 (cos (neg lambda2)))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* -1/2 (* (pow lambda1 2) (sin (neg lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* (pow lambda1 3) (- (+ (* -1 (/ (sin lambda2) (pow lambda1 3))) (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2)))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1/6 (* (pow lambda1 3) (cos lambda2)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1/6 (cos lambda2)) (+ (* 1/2 (/ (sin lambda2) lambda1)) (/ (cos lambda2) (pow lambda1 2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (- (+ (* -1/6 (cos lambda2)) (/ (cos lambda2) (pow lambda1 2))) (* -1/2 (/ (sin lambda2) lambda1))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* -1/6 (* (pow lambda1 2) (cos lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1/6 (* lambda1 (cos lambda2)))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* lambda1 (+ (* -1/6 (cos lambda2)) (* 1/2 (/ (sin lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 lambda1))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 lambda1)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 1))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (+ 1 (* -1 (/ lambda2 lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 lambda1))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* -1 (/ lambda1 lambda2))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ -1 lambda2)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (- (/ 1 lambda1) (/ 1 lambda2))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ 1 lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (- (/ 1 lambda2) (/ 1 lambda1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (- lambda1 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda1) (cos lambda2))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* lambda1 (+ lambda2 (+ (* -1/2 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda1 (+ lambda2 (* -1/2 (/ (pow lambda2 2) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/2 (/ lambda2 lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (+ (/ 1 (pow lambda1 2)) (/ lambda2 lambda1)) 1/2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* (pow lambda1 2) (- (/ lambda2 lambda1) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1/2))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 lambda1)))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda1 (- (/ lambda2 lambda1) 1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (- lambda1 lambda2)) 2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 lambda1))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) (pow lambda1 2)))) (/ lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda1 (- (+ 1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) (pow lambda1 3))) (+ (* -1 (/ (pow lambda2 2) (pow lambda1 2))) (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (pow lambda1 3)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda1 3) (+ 1 (* -1 (/ (pow lambda2 3) (pow lambda1 3)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (pow lambda1 2)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (/ lambda2 lambda1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (+ (/ lambda2 lambda1) (/ (pow lambda2 2) (pow lambda1 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (+ lambda2 (/ (pow lambda2 2) lambda1))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (* (cos lambda2) (sin lambda1))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda1 (- (+ 1 (* 1/2 (/ (PI) lambda1))) (/ lambda2 lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* lambda1 (+ 1 (* 1/2 (/ (PI) lambda1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (+ phi2 (* 1/2 (PI)))) lambda1))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda1 (- (+ 1 (+ (* 1/2 (/ (PI) lambda1)) (/ phi2 lambda1))) (/ lambda2 lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ phi2 (* 1/2 (PI)))) (cos (- lambda1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (+ lambda1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (neg (+ lambda2 (* -1 lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos phi2)) (/ (* lambda2 (cos phi2)) lambda1))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (cos phi2) lambda2)) (/ (cos phi2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (* (cos lambda2) (cos phi2))) (/ (* (cos phi2) (sin lambda2)) lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* -1 (/ (- (/ lambda2 lambda1) 1) lambda1)) (* 1/2 lambda2)) lambda1)))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda2) (/ 1 lambda1)) lambda1)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1/2 lambda2) (/ 1 lambda1)) lambda1)) 1/6))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/6 (* -1/2 (/ lambda2 lambda1)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (sin (neg lambda2)) (* -1 (/ (cos (neg lambda2)) lambda1))) lambda1)) (* -1/2 (cos (neg lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (cos (neg lambda2))) (/ (sin (neg lambda2)) lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (* -1 (/ (+ (cos lambda2) (* -1 (/ (sin lambda2) lambda1))) lambda1))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (sin lambda2)) (* -1 (/ (cos lambda2) lambda1)))))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (pow lambda2 2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (pow lambda2 2)) (/ lambda2 lambda1)) 1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 (pow lambda2 2)) (/ lambda2 lambda1))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1 (* lambda1 (+ (* 1/2 lambda2) (/ 1 lambda1))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (pow lambda2 2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* -1 (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)) (* 1/2 (pow lambda2 2))) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (* lambda2 (- (* 1/6 (pow lambda2 2)) 1)) lambda1)) (* 1/2 (pow lambda2 2)))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (/ (- (* 1/6 (pow lambda2 2)) 1) lambda1)) (* 1/2 lambda2))))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (* 1/2 lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* 1/6 (cos (neg lambda2))) (* 1/2 (/ (sin (neg lambda2)) lambda1)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin (neg lambda2)) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1)) (* -1/6 (cos (neg lambda2))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1/2 (sin (neg lambda2))) (/ (cos (neg lambda2)) lambda1)) lambda1)) (* 1/6 (cos (neg lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (cos (neg lambda2)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (* -1 (/ (+ (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1)) (* 1/2 (sin (neg lambda2)))) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (* -1 (/ (+ (cos (neg lambda2)) (/ (sin (neg lambda2)) lambda1)) lambda1))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* 1/2 (sin lambda2)) (/ (cos lambda2) lambda1)) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (/ (cos lambda2) lambda1)) (* -1/2 (sin lambda2))) lambda1)) (* -1/6 (cos lambda2))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1/2 (/ (sin lambda2) lambda1)) (* 1/6 (cos lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1)))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (neg (+ lambda2 (* -1 lambda1)))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (+ 1 (* -1/2 (pow lambda2 2))) lambda1)))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* 1/2 (/ (pow lambda2 2) lambda1)))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda1 (- (* 1/2 (/ lambda2 lambda1)) 1)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* (pow lambda1 2) (- (* -1 (/ (- (* -1 lambda2) (/ 1 lambda1)) lambda1)) 1/2))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda1 (+ 1/2 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI))))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (neg (+ lambda2 (* -1 lambda1)))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))) (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (neg (+ lambda2 (* -1 lambda1)))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (/ lambda2 lambda1) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (pow lambda2 2)) (pow lambda2 2)) lambda1))) lambda1)) 1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (+ (* -1 (/ (* lambda2 (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1)) (+ (* -1 (pow lambda2 2)) (pow lambda2 2))) lambda1))) lambda1)) 1)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda1 3) (- (/ (pow lambda2 3) (pow lambda1 3)) 1)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda1 2) (+ 1 (* -1 (/ (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1))) lambda1))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* -1 (* lambda1 (+ (* -1 lambda2) (* -1 (/ (pow lambda2 2) lambda1)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (* -1 (/ (+ (* -1 (pow lambda1 3)) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (+ lambda2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (* 1/2 (PI)) lambda2) lambda1)) 1)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* (sin lambda2) (sin (- (* 1/2 (PI)) (* -1 lambda1))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 lambda1)))))
#s(approx (+ lambda1 (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda1 (- (* -1/2 (/ (PI) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI)))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (+ (* 1/2 (/ (PI) lambda1)) (+ (/ lambda2 lambda1) (/ phi2 lambda1))) 1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (+ lambda2 (* -1 lambda1))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda1 (- (* -1 (/ (- (+ phi2 (* 1/2 (PI))) lambda2) lambda1)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (neg (+ lambda2 (+ phi2 (+ (* -1 lambda1) (* 1/2 (PI))))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1)))))) (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg (+ lambda2 (* -1 lambda1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (neg (+ lambda2 (* -1 lambda1)))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx lambda2 #s(hole binary64 lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* -1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))) (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (+ (cos lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))) (* -1 (sin lambda1)))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (cos lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (cos lambda2) #s(hole binary64 1))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos lambda2) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (cos lambda1))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* -1/6 (* (pow lambda2 2) (cos lambda1)))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* 1/120 (* (pow lambda2 2) (cos lambda1)))))))))
#s(approx (* (cos lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/6 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos lambda1))) (* 1/120 (cos lambda1))))))))))
#s(approx (sin lambda2) #s(hole binary64 lambda2))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* -1/6 (pow lambda2 2))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* 1/120 (pow lambda2 2)) 1/6))))))
#s(approx (sin lambda2) #s(hole binary64 (* lambda2 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/120 (* -1/5040 (pow lambda2 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* lambda2 (+ (* -1/2 (cos lambda1)) (* -1/6 (* lambda2 (sin lambda1))))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/6 (* (pow lambda2 2) (sin lambda1)))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* 1/120 (* (pow lambda2 2) (sin lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/6 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin lambda1))) (* 1/120 (sin lambda1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (neg lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 1))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* -1/2 (pow lambda2 2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* 1/24 (pow lambda2 2)) 1/2)))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (+ 1 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/24 (* -1/720 (pow lambda2 2)))) 1/2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (/ (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))) (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* 1/2 (* lambda2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* lambda2 (+ (* -1/6 (* lambda2 (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (cos lambda1)))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1 (* (cos lambda1) (sin phi1))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* lambda2 (+ (* -1 (* (sin lambda1) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))) (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (* -1/12 (* lambda2 (* (sin lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1)))) (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/6 (* lambda2 (* (cos phi2) (* (cos (+ lambda1 (* 1/2 (PI)))) (sin phi1))))))))) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (+ phi2 (* 1/2 (PI))))))))))) (* (sin lambda1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* -1 (* lambda2 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* lambda2 (+ (* -1 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* 1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/120 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (* (pow lambda2 2) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* -1/2 (* lambda1 (* lambda2 (cos phi2)))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* lambda2 (+ (* -1 (cos phi2)) (* lambda2 (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/6 (* lambda2 (cos phi2))))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (cos phi2))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* -1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (cos phi2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (pow lambda2 2) (cos phi2)))) (* lambda1 (cos phi2)))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* lambda1 (cos phi2))) (* 1/24 (* lambda1 (* (pow lambda2 2) (cos phi2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/2 (* lambda1 (cos phi2))) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (* (pow lambda2 2) (cos phi2)))) (* 1/24 (* lambda1 (cos phi2))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos phi2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* -1/2 (* (pow lambda2 2) (cos phi2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* 1/24 (* (pow lambda2 2) (cos phi2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos phi2) (* (pow lambda2 2) (+ (* -1/2 (cos phi2)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos phi2))) (* 1/24 (cos phi2)))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (- (/ 1 (pow lambda1 2)) 1/6)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* 1/2 lambda2) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (* 1/4 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (- (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* -1/2 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* 1/4 (* (pow lambda1 2) lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda2 (+ lambda1 (* lambda2 (+ (* -1/6 (* lambda1 lambda2)) (* 1/4 (pow lambda1 2)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ lambda2 (* -1/2 lambda1))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* 1/4 (* lambda1 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (+ (* -1/2 lambda1) (* lambda2 (+ 1 (* lambda2 (+ (* -1/6 lambda2) (* 1/4 lambda1))))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 lambda1)))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* 1/4 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/48 (* lambda1 (pow lambda2 2))) (* 1/4 lambda1))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* 1/4 lambda1) (* (pow lambda2 2) (+ (* -1/48 lambda1) (* 1/1440 (* lambda1 (pow lambda2 2))))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 lambda1))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* (pow lambda1 2) (* lambda2 (- 1/2 (/ 1 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* lambda2 (+ (* -1/2 lambda1) (* (pow lambda1 2) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 2) (- 1/2 (/ 1 (pow lambda1 2)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin lambda2) lambda1) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* phi1 (sin phi2)))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 (sin phi2))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos phi2))))) (* (cos phi2) (sin lambda1))))) (* (cos lambda1) (cos phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1 (* lambda2 (sin lambda1))) (* -1/2 (* phi1 phi2))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* 1/2 (* lambda2 (cos lambda1)))))) (cos lambda1))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (+ (* -1/2 (* phi1 phi2)) (* lambda2 (+ (* -1 (sin lambda1)) (* lambda2 (- (* 1/6 (* lambda2 (sin lambda1))) (* -1/2 (cos lambda1))))))) (cos lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi1) (sin phi2))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* lambda2 (+ (* -1 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* 1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))) (* -1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (+ lambda2 (* 1/2 (PI)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* -1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) lambda1))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (cos (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* -1/2 (* lambda2 (sin (- (* 1/2 (PI)) lambda1)))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (+ (sin (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (cos (- (* 1/2 (PI)) lambda1)) (* lambda2 (+ (* -1/2 (sin (- (* 1/2 (PI)) lambda1))) (* -1/6 (* lambda2 (cos (- (* 1/2 (PI)) lambda1)))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (* 1/2 (PI)) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (- (+ lambda2 (* 1/2 (PI))) lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (- (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (sin phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* -1/6 (* lambda2 (* (sin lambda1) (sin phi1)))))) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 1))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/6 (* lambda1 (pow lambda2 2)))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* 1/120 (* lambda1 (pow lambda2 2)))))))))
#s(approx (* lambda1 (sin lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 (* (pow lambda2 2) (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/5040 (* lambda1 (pow lambda2 2))) (* 1/120 lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))) (* (cos phi1) (sin phi2))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* lambda2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* -1/4 (* (cos lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* -1/12 (* lambda2 (* (sin lambda1) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (sin lambda1)))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (cos lambda1))))
#s(approx (* -1/2 lambda2) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (cos lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (cos lambda1)))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (sin lambda1)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1))))))))
#s(approx (pow lambda2 2) #s(hole binary64 (pow lambda2 2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (cos lambda1) (pow lambda2 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (sin lambda1))) (pow lambda2 2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (/ (+ (cos lambda1) (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))) (pow lambda2 2))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (cos lambda1) (pow lambda2 2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (/ (+ (* -1 (cos lambda1)) (* -1 (* lambda2 (sin lambda1)))) (pow lambda2 2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (/ (cos lambda1) lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (/ (+ (* -1 (cos lambda1)) (* -1 (* lambda2 (sin lambda1)))) lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (* -1/2 (* lambda2 (cos lambda1)))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (cos lambda1))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))) (cos lambda1))))))
#s(approx (* -1 lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (sin lambda1)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 1))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* lambda2 (- (* -1/6 (* lambda1 lambda2)) 1/2)))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/6 (pow lambda2 2)) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* -1/120 (pow lambda2 2)))) 1))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/6 (* (pow lambda2 2) (- (* 1/5040 (pow lambda2 2)) 1/120)))) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 lambda1))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 lambda2)))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 -1))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* -1/2 (* lambda1 lambda2)) 1)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2)))))
#s(approx (* 1/6 lambda2) #s(hole binary64 (* 1/6 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2))) 1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ lambda1 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* lambda2 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12)))) (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))) (* lambda2 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))) (* (pow lambda1 3) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1))))))) (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))) (* (pow lambda1 3) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (pow lambda1 3) (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3))))) (* lambda2 (+ (* -1 (* (pow lambda1 3) (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1)))))) (* (pow lambda1 3) (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12)))))) (* (pow lambda1 3) (- 1/6 (/ 1 (pow lambda1 2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- 1/6 (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* -1 (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* lambda2 (+ (* -1 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (* lambda2 (- (* 1/2 (/ 1 (pow lambda1 2))) 1/12))))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (- (+ 1/6 (* lambda2 (+ (* -1 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (* lambda2 (- (+ (* -1 (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1))))) (* 1/2 (/ 1 (pow lambda1 2)))) 1/12))))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ 1 (pow lambda1 2))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (* 1/2 (/ 1 lambda1)) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (+ (* -1/2 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1))) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (+ (* lambda2 (- (+ (* 1/2 (/ 1 lambda1)) (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 3))) (* 1/12 (/ 1 lambda1)))) (* 1/2 (/ 1 (pow lambda1 2)))))) (/ 1 (pow lambda1 3)))) (/ 1 (pow lambda1 2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (/ 1 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- 1/2 (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* -1/2 (/ lambda2 lambda1))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* lambda2 (- (+ 1/2 (* lambda2 (- (* lambda2 (- (* 1/6 (/ 1 (pow lambda1 2))) 1/12)) (* 1/2 (/ 1 lambda1))))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ -1 lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (/ lambda2 (pow lambda1 2)) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ (* -1/6 (/ lambda2 (pow lambda1 2))) (* 1/2 (/ 1 lambda1)))) (/ 1 (pow lambda1 2)))) (/ 1 lambda1))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 -1))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (/ lambda2 lambda1) 1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (* lambda2 (+ (* 1/2 lambda2) (/ 1 lambda1))) 1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (- (* lambda2 (+ (* lambda2 (+ 1/2 (* -1/6 (/ lambda2 lambda1)))) (/ 1 lambda1))) 1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (/ lambda2 lambda1)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* 1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* lambda2 (+ (* (pow lambda2 2) (- (* (pow lambda2 2) (+ (* -1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* -1 (/ lambda2 lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* 1/6 (/ (pow lambda2 2) lambda1)) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ (* -1/120 (/ (pow lambda2 2) lambda1)) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ (* (pow lambda2 2) (- (* 1/5040 (/ (pow lambda2 2) lambda1)) (* 1/120 (/ 1 lambda1)))) (* 1/6 (/ 1 lambda1)))) (/ 1 lambda1)))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* 1/2 lambda2)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/12 (pow lambda2 2))))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* 1/240 (pow lambda2 2)) 1/12))))))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ 1/2 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/240 (* -1/10080 (pow lambda2 2)))) 1/12))))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 1/6))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* -1/12 (pow lambda2 2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* (pow lambda2 2) (- (* 1/144 (pow lambda2 2)) 1/12)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (+ 1/6 (* (pow lambda2 2) (- (* (pow lambda2 2) (+ 1/144 (* -1/4320 (pow lambda2 2)))) 1/12)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* 1/2 (* (pow lambda1 2) lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* -1/2 (* lambda1 lambda2)) (* 1/2 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (+ lambda1 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/2 lambda1) (* -1/12 (* (pow lambda1 2) lambda2)))))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 lambda1))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) #s(hole binary64 (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow lambda2 2))))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow lambda2 2))))))))
#s(approx (* lambda1 (cos lambda2)) #s(hole binary64 (+ lambda1 (* (pow lambda2 2) (+ (* -1/2 lambda1) (* (pow lambda2 2) (+ (* -1/720 (* lambda1 (pow lambda2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (* 1/2 (pow lambda1 2)) 1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2)))) 1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)) (* lambda2 (+ 1/6 (* -1/12 (pow lambda1 2))))))) 1)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ 1 (* -1/6 (pow lambda1 2))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* 1/2 (* (pow lambda1 2) lambda2)) (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda1 (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (+ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) (* lambda2 (+ (* 1/2 (pow lambda1 2)) (* lambda2 (+ (* -1/12 (* (pow lambda1 2) lambda2)) (* lambda1 (- (* 1/12 (pow lambda1 2)) 1/2)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (* -1/6 (pow lambda1 2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (* 1/12 (pow lambda1 2)) 1/2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ 1 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (- (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2))) 1/2))))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* -1/6 (pow lambda1 2))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* 1/2 (* lambda1 lambda2)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/12 (* (pow lambda1 2) lambda2)) (* 1/2 lambda1))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (+ (* -1/6 (pow lambda1 2)) (* lambda2 (+ (* 1/2 lambda1) (* lambda2 (+ (* -1/12 (* lambda1 lambda2)) (* 1/12 (pow lambda1 2)))))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/2 lambda2))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* 1/12 (* lambda1 lambda2)))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* lambda2 (+ 1/2 (* lambda2 (+ (* -1/12 lambda2) (* 1/12 lambda1))))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (* -1/6 lambda1)))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* 1/12 (* lambda1 (pow lambda2 2))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* -1/144 (* lambda1 (pow lambda2 2))) (* 1/12 lambda1))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) #s(hole binary64 (+ (* -1/6 lambda1) (* (pow lambda2 2) (+ (* 1/12 lambda1) (* (pow lambda2 2) (+ (* -1/144 lambda1) (* 1/4320 (* lambda1 (pow lambda2 2))))))))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* -1/2 lambda2)))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* 1/12 (pow lambda2 2)) 1/2))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/12 (* -1/240 (pow lambda2 2)))) 1/2))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* lambda2 (- (* (pow lambda2 2) (+ 1/12 (* (pow lambda2 2) (- (* 1/10080 (pow lambda2 2)) 1/240)))) 1/2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))) (* (sin lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))) (* (cos lambda1) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(hole binary64 (/ (+ lambda2 (* -1 lambda1)) lambda2)))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) #s(hole binary64 (/ (- (/ lambda2 lambda1) 1) lambda2)))
#s(approx (/ 1 lambda2) #s(hole binary64 (/ 1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(hole binary64 (/ (+ lambda1 (* -1 lambda2)) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) #s(hole binary64 (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2))))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos lambda1) (cos phi2)))) (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (* phi1 (* (cos phi2) (sin lambda1)))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* phi1 (* (cos lambda1) (cos phi2)))) (* -1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))))) (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (cos phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos phi2))) (* -1/6 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (sin lambda1)))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* 1/2 (* lambda2 (* phi1 (cos lambda1)))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (sin lambda1)))) (* 1/2 (* phi1 (cos lambda1))))))) (* phi1 (- (* -1/2 (* phi1 phi2)) (cos lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos phi1) (sin phi2))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* -1/6 (* lambda2 (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))) (* (sin lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))) (* (cos lambda1) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* 1/2 (* lambda2 (* phi1 (* (cos lambda1) (cos phi2))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* phi1 (* (cos phi2) (sin lambda1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* phi1 (* (cos phi2) (sin lambda1))))) (* 1/2 (* phi1 (* (cos lambda1) (cos phi2)))))))) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin lambda1)))) (+ (* -1 (* (cos lambda1) (cos phi2))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* 1/2 (* lambda2 (* (cos lambda1) (cos phi2)))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos lambda1) (cos phi2))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin lambda1))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (sin lambda1)))) (* 1/2 (* (cos lambda1) (cos phi2))))))) (/ (sin phi2) phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (cos lambda1) (sin phi1)))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (sin lambda1) (sin phi1)))) (* -1/2 (* (cos lambda1) (sin phi1))))) (* (sin lambda1) (sin phi1)))) (* phi2 (cos phi1))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow lambda2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow lambda2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos lambda2)) #s(hole binary64 (+ (cos lambda1) (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* 1/4 (* lambda2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* lambda2 (+ (* 1/12 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* 1/4 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* -1/6 (* lambda2 (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))) (* (sin lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))) (* (cos lambda1) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 1))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 lambda2)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (cos lambda1)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (* -1/2 (pow lambda1 2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (+ 1 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (+ (* -1/2 (pow lambda1 2)) (* lambda1 lambda2))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* 1/2 (* lambda2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (+ (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1))))) (* -1/2 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))) (* (cos phi2) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (- lambda2 lambda1)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/6 (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -1 (/ (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))))) (+ (* -1/2 (/ (* (cos lambda1) (* (cos phi2) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* -2 (/ (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))) (/ (* (cos phi2) (* (sin lambda1) (* (sin phi1) (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))) (pow (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))) 2)))) (/ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))) (/ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* -2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2)))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* (cos lambda1) (* (cos phi2) (sin phi1))) (* (cos phi1) (sin phi2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* (cos phi2) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* 1/24 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos phi2) (sin phi1)) (* (pow lambda2 2) (+ (* -1/2 (* (cos phi2) (sin phi1))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (* (cos phi2) (sin phi1)))) (* 1/24 (* (cos phi2) (sin phi1))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow lambda2 2) (sin phi1))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow lambda2 2) (sin phi1))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow lambda2 2) (+ (* -1/2 (sin phi1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* -1 (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos phi1) 3) (pow (sin phi2) 3))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))))) (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))))) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos lambda1) 3) (pow (sin phi1) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))))) (* (pow (cos lambda1) 3) (pow (sin phi1) 3)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos lambda1) 3)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1)))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* lambda2 (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (+ (* lambda2 (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (sin lambda1))))) (pow (cos lambda1) 3))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos lambda1) 2) (pow (sin phi1) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (sin lambda1) (pow (sin phi1) 2)))) (* lambda2 (+ (* lambda2 (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (pow (cos lambda1) 2) (pow (sin phi1) 2)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos lambda1) 2)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* 2 (* lambda2 (* (cos lambda1) (sin lambda1)))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (pow (cos lambda1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (sin lambda1))) (* lambda2 (+ (* -1 (pow (cos lambda1) 2)) (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (pow (sin lambda1) 2)))))) (pow (cos lambda1) 2))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (+ (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (* lambda2 (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* -1/6 (* (pow (cos lambda1) 2) (sin lambda1))) (+ (* (cos lambda1) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))) (* (sin lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))) (+ (/ (* (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1))))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* -1/2 (pow (cos lambda1) 3)) (+ (* 2 (* (cos lambda1) (pow (sin lambda1) 2))) (* (cos lambda1) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))))) (+ (/ (* (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* -1 (/ (* (pow (cos phi2) 3) (* (pow (sin phi1) 3) (+ (* 2 (* (pow (cos lambda1) 2) (sin lambda1))) (* (pow (cos lambda1) 2) (sin lambda1))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))) (/ (* (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))))) (pow (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))) 2)))) (/ (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))) (/ (* (pow (cos lambda1) 3) (* (pow (cos phi2) 3) (pow (sin phi1) 3))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))) (* (pow (cos phi1) 2) (pow (sin phi2) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2)))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* lambda2 (+ (* 2 (* (cos lambda1) (* (pow (cos phi2) 2) (* (sin lambda1) (pow (sin phi1) 2))))) (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (+ (* lambda2 (+ (* -1/6 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (* (cos lambda1) (sin lambda1))) (* -1/3 (* (cos lambda1) (sin lambda1)))))))) (* (pow (cos phi2) 2) (* (pow (sin phi1) 2) (+ (* -1 (pow (cos lambda1) 2)) (pow (sin lambda1) 2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))))) (+ (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))) (* (pow (cos lambda1) 2) (* (pow (cos phi2) 2) (pow (sin phi1) 2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2)))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2)))))) (* -1/6 (* lambda2 (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))))) (* (cos phi1) (* (cos phi2) (* (sin lambda1) (* (sin phi1) (sin phi2))))))) (* (cos lambda1) (* (cos phi1) (* (cos phi2) (* (sin phi1) (sin phi2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos lambda1) (* (cos phi2) (sin phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* -1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))))) (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (+ (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))) (* (cos phi1) (sin phi2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* 1/2 (* lambda2 (* (cos lambda1) (* (cos phi2) (sin phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (* (cos phi2) (sin phi1)))) (* lambda2 (+ (* -1 (* (cos phi2) (* (sin lambda1) (sin phi1)))) (* lambda2 (+ (* 1/6 (* lambda2 (* (cos phi2) (* (sin lambda1) (sin phi1))))) (* 1/2 (* (cos lambda1) (* (cos phi2) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* -1/2 (* lambda2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2)))) (* 1/6 (* lambda2 (* (cos lambda1) (sin (- (* 1/2 (PI)) phi2))))))))) (* (sin lambda1) (sin (- (* 1/2 (PI)) phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (cos phi2)))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos lambda1) (cos phi2)))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin lambda1)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (cos lambda1))))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (+ (* -1 (pow lambda2 3)) (pow lambda1 3))))
#s(approx (* -1 (pow lambda2 3)) #s(hole binary64 (* -1 (pow lambda2 3))))
#s(approx (pow lambda2 3) #s(hole binary64 (pow lambda2 3)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda1 lambda2) (pow lambda1 2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (+ (* lambda2 (+ lambda1 lambda2)) (pow lambda1 2))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* lambda2 (+ 1 (/ lambda2 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (sin lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* -1/2 (* (pow lambda2 2) (sin lambda1))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* 1/24 (* (pow lambda2 2) (sin lambda1))))))))
#s(approx (* (sin lambda1) (cos lambda2)) #s(hole binary64 (+ (sin lambda1) (* (pow lambda2 2) (+ (* -1/2 (sin lambda1)) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (sin lambda1))) (* 1/24 (sin lambda1)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* -1 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda2 (- (* 1/2 (* lambda2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (+ (* lambda2 (- (* lambda2 (- (* 1/6 (* lambda2 (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* -1/2 (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1)))))) (* (cos (- (* 1/2 (PI)) lambda1)) (sin phi1)))) (* phi2 (cos phi1))) (* (sin phi1) (sin (- (* 1/2 (PI)) lambda1))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (* 1/2 (PI))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* -1/2 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* lambda2 (+ (* -1 (cos (+ lambda1 (* 1/2 (PI))))) (* lambda2 (+ (* -1/2 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/6 (* lambda2 (cos (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (* 1/2 (PI)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* -1/2 (* lambda2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* lambda2 (+ (* -1/2 (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/6 (* lambda2 (* (cos lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))) (* (sin lambda1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* -1 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* -1/2 (* lambda2 (* (cos phi2) (sin lambda1)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (+ (* lambda2 (+ (* -1 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI)))))) (* lambda2 (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* 1/6 (* lambda2 (* (cos phi2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (sin lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* -1 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* -1/2 (* lambda2 (sin lambda1))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) #s(hole binary64 (+ (sin lambda1) (* lambda2 (- (* lambda2 (+ (* -1/2 (sin lambda1)) (* 1/6 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))) (sin (+ lambda1 (* 1/2 (PI)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (sin (+ lambda1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* -1/6 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* 1/120 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) #s(hole binary64 (* lambda2 (+ (sin (+ lambda1 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/6 (sin (+ lambda1 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/5040 (* (pow lambda2 2) (sin (+ lambda1 (* 1/2 (PI)))))) (* 1/120 (sin (+ lambda1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (+ (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* 1/6 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (- lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ lambda1 (+ phi2 (* 1/2 (PI))))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (sin (+ lambda1 (+ phi2 (* 1/2 (PI))))))))) (* -1 (sin (+ lambda1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* lambda2 (+ (* 1/2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* lambda2 (+ (* 1/2 (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (* -1 (* (cos lambda1) (cos phi2))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1)))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ phi2 (* 1/2 (PI))))) (+ (* lambda2 (- (+ (* -1 (* (cos lambda1) (cos phi2))) (* lambda2 (- (+ (* -1/2 (cos (- lambda1 (+ phi2 (* 1/2 (PI)))))) (+ (* -1/2 (* (cos phi2) (sin lambda1))) (* lambda2 (- (* 1/6 (* (cos lambda1) (cos phi2))) (+ (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (sin (- lambda1 (+ phi2 (* 1/2 (PI))))))))))) (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))) (+ (* -1 (sin (- lambda1 (+ phi2 (* 1/2 (PI)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))))) (* (cos phi2) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* lambda2 (- (+ (* lambda2 (- (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* lambda2 (- (* -1/6 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* 1/6 (* (cos lambda1) (cos phi2)))))) (* -1/2 (* (cos phi2) (sin lambda1))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* -1 (* (cos lambda1) (cos phi2))))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* (cos phi2) (sin lambda1)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (cos phi2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (- (* -1/2 (* lambda2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (cos phi2)))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* lambda2 (- (* lambda2 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* lambda2 (cos phi2))))) (* -1 (cos phi2)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1/2 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/24 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* (pow lambda2 2) (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* (pow lambda2 2) (+ (* -1/720 (* (pow lambda2 2) (cos (+ phi2 (* 1/2 (PI)))))) (* 1/24 (cos (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* -1 (* lambda2 (cos phi2)))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* 1/6 (* (pow lambda2 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (* (pow lambda2 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (* (pow lambda2 2) (+ (* 1/6 (cos phi2)) (* (pow lambda2 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow lambda2 2) (cos phi2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* -1/2 (* lambda2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* lambda2 (+ (* lambda2 (+ (* -1/2 (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI)))))) (* -1/6 (* lambda2 (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))))) (* (cos (+ phi2 (* 1/2 (PI)))) (sin lambda1)))) (* (cos lambda1) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (cos lambda2) #s(hole binary64 (cos lambda2)))
#s(approx (sin lambda2) #s(hole binary64 (sin lambda2)))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (neg lambda2))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (neg lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (* (cos phi2) (sin lambda2))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (* (cos lambda2) (cos phi2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (* 1/2 (pow lambda1 2)) 1))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) 1))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)) lambda2)))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* 1/2 (/ lambda2 lambda1))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ 1 lambda1)) (/ 1 (* (pow lambda1 2) lambda2))) (* 1/6 (/ 1 lambda2))))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) #s(hole binary64 (* lambda2 (+ (* 1/2 (/ 1 lambda1)) (/ 1 (* (pow lambda1 2) lambda2))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* 1/2 (* (pow lambda1 2) lambda2))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* lambda2 (+ (* 1/2 (pow lambda1 2)) (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* 1/2 (* lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* lambda2 (+ (* -1/6 (/ (pow lambda1 2) lambda2)) (* 1/2 lambda1)))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* lambda2 (+ 1/2 (* -1/6 (/ lambda1 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))))
#s(approx (* 1/2 (sin lambda2)) #s(hole binary64 (* 1/2 (sin lambda2))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 lambda2))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* lambda2 (+ 1 (* 1/2 (/ (PI) lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ 1 (* 1/2 (/ (PI) lambda2))) (/ lambda1 lambda2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (cos lambda1)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* lambda2 (+ (* -1 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2))) (/ (cos lambda1) lambda2)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (sin lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* lambda2 (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 (cos lambda1)) (/ (cos lambda1) (pow lambda2 2))) (* -1 (/ (sin lambda1) lambda2))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (+ (/ (cos lambda1) (pow lambda2 2)) (/ (sin lambda1) lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (* -1/2 (cos lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) #s(hole binary64 (+ (* -1/2 (cos lambda1)) (+ (/ (cos lambda1) (pow lambda2 2)) (/ (sin lambda1) lambda2)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (sin lambda1) lambda2))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) #s(hole binary64 (* -1 (sin lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (cos lambda1)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1/2 (* lambda2 (cos lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* lambda2 (+ (* -1/2 (cos lambda1)) (/ (sin lambda1) lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* -1/2 (* (pow lambda2 2) (sin lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (cos lambda1) lambda2)) (+ (* -1/2 (sin lambda1)) (/ (sin lambda1) (pow lambda2 2)))))))
#s(approx (neg (sin lambda2)) #s(hole binary64 (* -1 (sin lambda2))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* -1/2 (* lambda1 (pow lambda2 2)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (- (+ (* -1/2 lambda1) (/ lambda1 (pow lambda2 2))) (/ 1 lambda2)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) #s(hole binary64 (* (pow lambda2 2) (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* lambda2 (- (* -1/2 lambda1) (/ 1 lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* 1/6 (pow lambda2 3))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (+ (* -1/2 (/ lambda1 lambda2)) (/ lambda1 (pow lambda2 3)))) (/ 1 (pow lambda2 2))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* 1/6 (pow lambda2 3))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* (pow lambda2 3) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* (pow lambda2 3) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* 1/6 (pow lambda2 2))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (- (+ 1/6 (* -1/2 (/ lambda1 lambda2))) (/ 1 (pow lambda2 2))))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* lambda2 (+ 1/6 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* -1/2 (sin (neg lambda2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (* 1/6 (cos (neg lambda2)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) #s(hole binary64 (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) #s(hole binary64 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))))
#s(approx (* -1/2 (sin lambda2)) #s(hole binary64 (* -1/2 (sin lambda2))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* lambda2 (- (/ 1 lambda2) (/ 1 lambda1)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* -1/2 (pow lambda2 2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (+ (/ 1 (pow lambda2 2)) (/ lambda1 lambda2)) 1/2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) #s(hole binary64 (* (pow lambda2 2) (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1/2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (sin lambda1))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* lambda2 (+ (sin lambda1) (/ (cos lambda1) lambda2)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* lambda2 (+ lambda1 (+ (* -1/2 (/ (pow lambda1 2) lambda2)) (/ 1 lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* lambda2 (+ lambda1 (* -1/2 (/ (pow lambda1 2) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* lambda2 (+ 1 (* -1/2 (/ lambda1 lambda2))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (* -1 (/ (+ (* -1 (pow lambda1 2)) (pow lambda1 2)) (pow lambda2 2))) (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* lambda2 (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) (pow lambda2 3)) (+ 1 (+ (* -1 (/ lambda1 lambda2)) (+ (* -1 (/ (pow lambda1 2) (pow lambda2 2))) (/ (pow lambda1 2) (pow lambda2 2)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* (pow lambda2 3) (- (/ (pow lambda1 3) (pow lambda2 3)) 1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (+ (/ lambda1 lambda2) (/ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (/ lambda1 lambda2)))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (/ 1 lambda1) (/ 1 lambda2)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (/ lambda1 lambda2)) 1))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) (+ 1 (+ (* 1/2 (/ (PI) lambda2)) (/ phi2 lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* lambda2 (- (+ (* 1/2 (/ (PI) lambda2)) (+ (/ lambda1 lambda2) (/ phi2 lambda2))) 1))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* (cos phi2) (sin (neg lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) #s(hole binary64 (sin (+ lambda1 (* -1 lambda2)))))
#s(approx (- lambda1 lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))
#s(approx (cos (- lambda1 lambda2)) #s(hole binary64 (cos (+ lambda1 (* -1 lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (sin (neg lambda2)) #s(hole binary64 (sin (* -1 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))))
#s(approx (cos (neg lambda2)) #s(hole binary64 (cos (* -1 lambda2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) #s(hole binary64 (+ (* -1/2 (sin (* -1 lambda2))) (* -1/6 (* lambda1 (cos (* -1 lambda2)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/6 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (* lambda1 (cos (neg lambda2))) #s(hole binary64 (* lambda1 (cos (* -1 lambda2)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (cos phi2) (* -1 (/ (* lambda1 (cos phi2)) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (* -1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1/2 (pow lambda1 2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2))))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* (pow lambda1 3) (- (/ 1 (pow lambda1 2)) 1/6)) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (/ 1 (pow lambda1 2)) 1/6) lambda2)) (* 1/2 (/ 1 lambda1)))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (* lambda1 (+ 1 (* -1/6 (pow lambda1 2)))) lambda2)) (* -1/2 (pow lambda1 2)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (+ 1 (* -1/6 (pow lambda1 2))) lambda2)) (* -1/2 lambda1))))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1/2 lambda1) (* 1/6 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/6 (/ lambda1 lambda2)) 1/2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) #s(hole binary64 (+ (cos (* -1 lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) #s(hole binary64 (* lambda1 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) #s(hole binary64 (- (* -1/2 (* lambda1 (cos (* -1 lambda2)))) (sin (* -1 lambda2)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (* -1/2 (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (+ lambda2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* lambda2 (- (* -1/2 (/ (PI) lambda2)) 1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (- (* -1 (/ (- (* 1/2 (PI)) lambda1) lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (cos (* -1 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 (sin lambda1)) (/ (cos lambda1) lambda2))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) #s(hole binary64 (* -1 (/ (+ (sin lambda1) (/ (cos lambda1) lambda2)) lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (/ (sin lambda1) lambda2)) (* 1/2 (cos lambda1)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ (cos lambda1) (* -1 (/ (sin lambda1) lambda2))) lambda2)) (* -1/2 (sin lambda1))))))
#s(approx (+ lambda1 (* -1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) #s(hole binary64 (* (pow lambda2 2) (+ (* -1 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda2)) (* -1/2 lambda1)))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(hole binary64 (* -1 (* lambda2 (+ (* 1/2 lambda1) (/ 1 lambda2))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (- (* -1/2 lambda1) (/ 1 lambda2)) lambda2)) 1/6)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (+ (* -1 (/ (+ 1 (* -1 (/ lambda1 lambda2))) lambda2)) (* -1/2 lambda1)) lambda2)) 1/6)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) #s(hole binary64 (* -1 (* (pow lambda2 3) (- (* -1 (/ (- (* -1/2 lambda1) (/ 1 lambda2)) lambda2)) 1/6)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(hole binary64 (* (pow lambda2 2) (+ 1/6 (* -1 (/ (+ (* 1/2 lambda1) (/ 1 lambda2)) lambda2))))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1/6)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) #s(hole binary64 (+ (sin (* -1 lambda2)) (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) #s(hole binary64 (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) #s(hole binary64 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)) (* 1/6 (cos (* -1 lambda2))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) #s(hole binary64 (/ (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2)))) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) #s(hole binary64 (+ (* -1 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)) (* -1/2 (sin (* -1 lambda2))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) #s(hole binary64 (/ (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1))) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(hole binary64 (+ (* -1 (cos (* -1 lambda2))) (* -1 (/ (sin (* -1 lambda2)) lambda1)))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) #s(hole binary64 (* -1 (/ (sin (* -1 lambda2)) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) #s(hole binary64 (/ (sin (* -1 lambda2)) lambda1)))
#s(approx (* -1/2 (sin (neg lambda2))) #s(hole binary64 (* -1/2 (sin (* -1 lambda2)))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(hole binary64 (* 1/6 (cos (* -1 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) #s(hole binary64 (* lambda1 (+ (cos (* -1 lambda2)) (* -1/2 (* lambda1 (sin (* -1 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (- (/ 1 lambda1) (/ 1 lambda2))))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (+ lambda1 (* -1 lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (* (cos phi2) (cos (+ lambda1 (* -1 lambda2))))) (/ (sin phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(hole binary64 (* (pow lambda2 2) (- (* -1 (/ (- (* -1 lambda1) (/ 1 lambda2)) lambda2)) 1/2))))
#s(approx (+ lambda1 (* -1/2 lambda2)) #s(hole binary64 (* -1 (* lambda2 (+ 1/2 (* -1 (/ lambda1 lambda2)))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* -1 (/ (+ 1 (* -1/2 (pow lambda1 2))) lambda2)))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) #s(hole binary64 (* -1 (* lambda2 (+ (* -1 lambda1) (* 1/2 (/ (pow lambda1 2) lambda2)))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) #s(hole binary64 (* -1 (* lambda2 (- (* 1/2 (/ lambda1 lambda2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2)))))))))
#s(approx (neg (- lambda1 lambda2)) #s(hole binary64 (* -1 (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))) (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos phi2) (* (cos (* -1 lambda2)) (sin phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* (cos (* -1 lambda2)) (sin phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 3)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (* (sin phi1) (sin phi2))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) #s(hole binary64 (pow (cos (+ lambda1 (* -1 lambda2))) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (/ (- (* (pow (cos phi1) 3) (pow (sin phi2) 3)) (* (pow (cos phi2) 3) (* (pow (cos (+ lambda1 (* -1 lambda2))) 3) (pow (sin phi1) 3)))) (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (+ (* (pow (cos phi1) 2) (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* (cos phi1) (* (cos phi2) (* (sin phi1) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos phi2) 2) (* (pow (cos (+ lambda1 (* -1 lambda2))) 2) (pow (sin phi1) 2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))) (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))) (* (cos phi1) (sin phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ lambda1 (* -1 lambda2))) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (+ lambda1 (* -1 lambda2))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) #s(hole binary64 (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (+ (* -1 (/ (pow lambda1 2) lambda2)) (/ (pow lambda1 2) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- (* -1 (/ (- (/ (* lambda1 (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2) (+ (* -1 (pow lambda1 2)) (pow lambda1 2))) lambda2)) (* -1 lambda1)) lambda2)))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) #s(hole binary64 (* -1 (* (pow lambda2 3) (+ 1 (* -1 (/ (pow lambda1 3) (pow lambda2 3))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) #s(hole binary64 (* (pow lambda2 2) (+ 1 (* -1 (/ (+ (* -1 lambda1) (* -1 (/ (pow lambda1 2) lambda2))) lambda2))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (+ (* -1 (pow lambda2 3)) (pow lambda1 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (+ phi1 (* 1/2 (PI))))) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (* 1/2 (PI)) (+ lambda1 (* -1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) #s(hole binary64 (sin (+ lambda1 (+ (* -1 lambda2) (* 1/2 (PI)))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (- lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ lambda1 (+ phi2 (+ (* -1 lambda2) (* 1/2 (PI))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* lambda2 (+ 1 (* -1 (/ (+ lambda1 (+ phi2 (* 1/2 (PI)))) lambda2)))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (+ lambda1 (* -1 lambda2))) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 lambda2)) (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2))))) (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (+ lambda1 (* -1 lambda2)))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (* -1 lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (* -1 lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (* -1 lambda2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (* (cos phi2) (sin (* -1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (+ lambda1 (* -1 lambda2))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (cos phi1) #s(hole binary64 1))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* 1/24 (pow phi1 2)) 1/2)))))
#s(approx (cos phi1) #s(hole binary64 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/24 (* -1/720 (pow phi1 2)))) 1/2)))))
#s(approx phi1 #s(hole binary64 phi1))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (sin phi1) #s(hole binary64 phi1))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* -1/6 (pow phi1 2))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* 1/120 (pow phi1 2)) 1/6))))))
#s(approx (sin phi1) #s(hole binary64 (* phi1 (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 1/120 (* -1/5040 (pow phi1 2)))) 1/6))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* -1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* 1/120 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (- lambda1 lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/6 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* 1/6 (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/120 (cos (- lambda1 lambda2))) (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 phi2))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* 1/24 (* (pow phi1 2) phi2)))))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (+ phi2 (* (pow phi1 2) (+ (* -1/2 phi2) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) phi2)) (* 1/24 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* phi1 (+ (* -1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* 1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (* (cos (* 1/2 (PI))) (sin phi2)) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* (cos (* 1/2 (PI))) (sin phi2))) (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))))))) (* (cos (* 1/2 (PI))) (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (sin (* 1/2 (PI))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (* phi2 (cos (* 1/2 (PI)))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (+ (* -1/2 (* phi1 (* phi2 (sin (* 1/2 (PI)))))) (* phi2 (cos (* 1/2 (PI))))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* phi1 (- (+ (* phi1 (+ (* -1/2 (* phi2 (sin (* 1/2 (PI))))) (* phi1 (- (* -1/6 (* phi2 (cos (* 1/2 (PI))))) (* -1/6 (cos (- lambda1 lambda2))))))) (* phi2 (cos (* 1/2 (PI))))) (cos (- lambda1 lambda2)))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (* 1/2 (PI))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (* phi2 (cos (* 1/2 (PI))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* phi2 (sin (* 1/2 (PI)))))) (* phi2 (cos (* 1/2 (PI)))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* phi2 (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* phi2 (cos (* 1/2 (PI)))))))) (* phi2 (cos (* 1/2 (PI)))))) (* phi2 (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (+ (cos phi2) (cos (neg phi2))))) (* 1/2 (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* 1/2 (+ (cos phi2) (cos (neg phi2)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (* phi1 (+ (* 1/2 (+ (cos phi2) (cos (neg phi2)))) (* phi1 (+ (* 1/2 (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* 1/2 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (cos (neg phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* -1/2 (* phi1 (sin (neg phi2)))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin (neg phi2)) (* phi1 (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin (neg phi2))) (* -1/6 (* phi1 (cos (neg phi2)))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 phi2) #s(hole binary64 (- phi1 phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi2)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (cos phi2)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (cos phi2) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (cos phi2))))))))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi2))
#s(approx (+ phi1 phi2) #s(hole binary64 (+ phi1 phi2)))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* 1/2 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))) (* phi1 (+ (* 1/2 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos lambda1) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2))))))) (* 1/2 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin phi2) (sin (neg phi2))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (* (cos lambda1) (+ (cos phi2) (cos (neg phi2))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2)))))) (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* phi1 (* (cos lambda1) (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))) (* (cos lambda1) (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))) (* (cos lambda1) (+ (cos phi2) (cos (neg phi2)))))) (* (cos lambda1) (+ (sin phi2) (sin (neg phi2)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (cos (neg phi2))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (sin (neg phi2))))))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin phi2) (+ (sin (neg phi2)) (* phi1 (+ (cos phi2) (+ (cos (neg phi2)) (* phi1 (+ (* -1/2 (sin phi2)) (+ (* -1/2 (sin (neg phi2))) (* phi1 (+ (* -1/6 (cos phi2)) (* -1/6 (cos (neg phi2)))))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (* 1/2 (PI))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (neg (+ phi2 (* 1/2 (PI)))))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* -1 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* -1/2 (* phi1 (cos (neg (+ phi2 (* 1/2 (PI))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (neg (+ phi2 (* 1/2 (PI))))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (neg (+ phi2 (* 1/2 (PI)))))) (* 1/6 (* phi1 (sin (neg (+ phi2 (* 1/2 (PI))))))))) (sin (neg (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (+ phi2 (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos (- lambda1 lambda2)))) (* 1/120 (cos (- lambda1 lambda2))))) (* -1/6 (cos (- lambda1 lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (* -1/2 (* phi1 phi2)) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (* phi1 phi2) #s(hole binary64 (* phi1 phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos lambda1) (cos phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (* (cos lambda1) (cos phi2))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* 1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/6 (* (cos lambda1) (cos phi2)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* 1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/120 (* (cos lambda1) (cos phi2))) (* 1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi1 (+ (* -1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* 1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* -1/6 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* 1/120 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) #s(hole binary64 (* phi1 (+ (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (* (pow phi1 2) (+ (* -1/6 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (* phi1 phi1) #s(hole binary64 (pow phi1 2)))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (* 1/2 (PI))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (* (cos (* 1/2 (PI))) (sin phi2))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* -1/2 (* phi1 (* (sin phi2) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (sin phi2) (sin (* 1/2 (PI))))) (* -1/6 (* phi1 (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (sin phi2) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi1 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi1 (+ (cos (* 1/2 (PI))) (* phi1 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi1 (cos (* 1/2 (PI))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/120 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (sin phi2) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1/2 (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1/2 (sin phi2)) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* 1/2 (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))) (* phi1 (+ (* -1/2 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (* 1/2 (PI)))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (+ phi2 (PI)))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))) (* -1/2 (sin (+ phi2 (PI)))))) (+ (cos (+ phi2 (PI))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))) (sin (+ phi2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* -1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (cos (+ phi2 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* -1/2 (* phi1 (sin (+ phi2 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi2 (PI))) (* phi1 (+ (cos (+ phi2 (PI))) (* phi1 (+ (* -1/2 (sin (+ phi2 (PI)))) (* -1/6 (* phi1 (cos (+ phi2 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi2 (PI))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (+ phi2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos lambda2)) (+ (* (sin lambda1) (sin lambda2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (* (cos lambda1) (cos phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* (cos lambda1) (cos phi2))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* 1/120 (* (pow phi1 2) (* (cos lambda1) (cos phi2))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (* (cos lambda1) (cos phi2)) (* (pow phi1 2) (+ (* -1/6 (* (cos lambda1) (cos phi2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos lambda1) (cos phi2)))) (* 1/120 (* (cos lambda1) (cos phi2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* (pow phi1 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI))))))) (* (pow phi1 2) (+ (* 1/2 (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (- (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (+ (* 1/120 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (- (* -1/5040 (sin (+ phi2 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi2 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi2 (* 1/2 (PI)))))))) (* -1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* 1/6 (* (pow phi1 2) (cos phi2))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* -1/120 (* (pow phi1 2) (cos phi2))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (- (* (pow phi1 2) (- (* (pow phi1 2) (- (* 1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2)))) (* -1/6 (cos phi2)))) (cos phi2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (sin phi2)))
#s(approx (* -1 phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* -1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* 1/120 (* (pow phi1 2) (cos phi2)))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos phi2) (* (pow phi1 2) (+ (* -1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos phi2))) (* 1/120 (cos phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI)))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))) (* 1/120 (* (cos (- lambda1 lambda2)) (sin (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* -1/6 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* 1/120 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* phi1 (+ (sin (+ phi2 (* 1/2 (PI)))) (* (pow phi1 2) (+ (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (sin (+ phi2 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi2 (* 1/2 (PI)))))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (* phi1 (cos phi2)))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* 1/6 (* (pow phi1 2) (cos phi2)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (cos phi2))) (* 1/6 (cos phi2))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1 (cos phi2)) (* (pow phi1 2) (+ (* 1/6 (cos phi2)) (* (pow phi1 2) (+ (* -1/120 (cos phi2)) (* 1/5040 (* (pow phi1 2) (cos phi2)))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (sin phi2)))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ phi2 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (+ (* -1 (cos (- lambda1 lambda2))) (* -1/2 (* phi1 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* -1/2 (* phi1 (sin phi2))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))) (* 1/120 (* (cos (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* 1/120 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (+ (* (cos (* 1/2 (PI))) (sin phi2)) (* (pow phi1 2) (+ (* -1/6 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))) (* 1/120 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (sin phi2)))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (/ (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ (sin phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* phi1 (+ (* -1/2 (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))) (* phi1 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))) (* 1/2 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI)))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* phi1 (+ (* -1 (* (cos (- lambda1 lambda2)) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* phi1 (+ (* -1 (* phi1 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI)))))))) (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))))) (* (cos (- lambda1 lambda2)) (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (* 1/2 (PI))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* -1 (* phi1 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (- (+ (* -1 (* phi1 (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI))))))) (* -1/2 (cos (* 1/2 (PI))))) (* -1/2 (sin (PI))))) (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))))) (sin (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (sin (* 1/2 (PI)))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* -1/2 (* phi1 (cos (* 1/2 (PI))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (* 1/2 (PI)))) (* -1/6 (* phi1 (sin (* 1/2 (PI))))))) (* -1 (sin (* 1/2 (PI)))))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (+ (* -1 phi1) (* 1/2 (PI)))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (PI))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (cos (PI))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (+ (cos (PI)) (* -1/2 (* phi1 (sin (PI)))))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (+ (sin (PI)) (* phi1 (+ (cos (PI)) (* phi1 (+ (* -1/2 (sin (PI))) (* -1/6 (* phi1 (cos (PI)))))))))))
#s(approx (+ phi1 (PI)) #s(hole binary64 (PI)))
#s(approx (+ phi1 (PI)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (* phi1 (cos phi2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 1))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (+ 1 (* -1/2 (pow phi1 2)))))
#s(approx (pow phi1 2) #s(hole binary64 (pow phi1 2)))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi1 2))) (pow phi1 2))))
#s(approx (/ 1 (pow phi1 2)) #s(hole binary64 (/ 1 (pow phi1 2))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* -1/2 (* phi1 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI))))))) (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))) (* phi1 (+ (* -1/2 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))) (* 1/2 (* phi1 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI)))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (+ (* 1/2 (- (cos (* 1/2 (PI))) (sin (PI)))) (* phi1 (+ (* -1/2 (+ (cos (PI)) (* -1 (sin (* 1/2 (PI)))))) (* phi1 (+ (* -1/2 (* phi1 (+ (* -1/6 (cos (PI))) (* 1/6 (sin (* 1/2 (PI))))))) (* 1/2 (- (* -1/2 (cos (* 1/2 (PI)))) (* -1/2 (sin (PI))))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (- (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))) (* phi1 (- (* 1/2 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2))))) (* -1/6 (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))) (* (cos phi2) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))) (* phi1 (+ (* 1/2 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2)))) (* phi1 (+ (* 1/2 (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi2)) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (sin (+ phi2 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (+ (sin (+ phi2 (* 1/2 (PI)))) (* phi1 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* phi1 (- (* -1/6 (sin (+ phi2 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi2)))))) (* -1/2 (cos (+ phi2 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi2))))) (cos (+ phi2 (* 1/2 (PI)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi2))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* -1 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* -1/2 (* phi1 (cos (- (* 1/2 (PI)) phi2)))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi2)) (* phi1 (- (* phi1 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi2))) (* 1/6 (* phi1 (sin (- (* 1/2 (PI)) phi2)))))) (sin (- (* 1/2 (PI)) phi2)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (* 1/2 (PI)) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (- (+ phi1 (* 1/2 (PI))) phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* -1 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* -1/2 (* phi1 (cos (+ phi2 (* 1/2 (PI)))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi2 (* 1/2 (PI)))) (* phi1 (- (* phi1 (+ (* -1/2 (cos (+ phi2 (* 1/2 (PI))))) (* 1/6 (* phi1 (sin (+ phi2 (* 1/2 (PI)))))))) (sin (+ phi2 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ phi2 (* 1/2 (PI))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -1 (sin phi2)) (* -1 (* phi1 (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* 1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2))))))) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (+ (* -1/2 (sin phi2)) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* 1/3 (pow (sin phi2) 2)) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (+ (* (pow phi1 2) (- (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (- (+ (* 1/3 (pow (sin phi2) 2)) (* (pow phi1 2) (- (* -2/45 (pow (sin phi2) 2)) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* -1 (* (pow phi1 2) (pow (sin phi2) 2))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* 1/3 (* (pow phi1 2) (pow (sin phi2) 2))))) (pow (sin phi2) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -1 (pow (sin phi2) 2)) (* (pow phi1 2) (+ (* -2/45 (* (pow phi1 2) (pow (sin phi2) 2))) (* 1/3 (pow (sin phi2) 2)))))) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (sin phi2)))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* -1/2 (* (pow phi1 2) (sin phi2))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* 1/24 (* (pow phi1 2) (sin phi2))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (+ (sin phi2) (* (pow phi1 2) (+ (* -1/2 (sin phi2)) (* (pow phi1 2) (+ (* -1/720 (* (pow phi1 2) (sin phi2))) (* 1/24 (sin phi2)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* 2/45 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (- lambda1 lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/120 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1/2 (* phi1 (sin phi2))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* phi1 (+ (* -1/2 (sin phi2)) (* -1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (* (cos phi2) (cos (neg lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* (cos phi2) (cos (neg lambda2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2)))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (cos (neg lambda2)))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (cos (neg lambda2))))) (* 1/120 (* (cos phi2) (cos (neg lambda2))))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (cos (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* -1/6 (* (pow phi1 2) (cos (neg lambda2))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* 1/120 (* (pow phi1 2) (cos (neg lambda2))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) #s(hole binary64 (* phi1 (+ (cos (neg lambda2)) (* (pow phi1 2) (+ (* -1/6 (cos (neg lambda2))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (cos (neg lambda2)))) (* 1/120 (cos (neg lambda2)))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (cos (- lambda1 lambda2)))) (+ (* -1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (* (cos phi2) (* (cos (- lambda1 lambda2)) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* -1 (* phi1 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* phi1 (- (* 7/8 (* phi1 (pow (sin phi2) 3))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (pow (sin phi2) 3)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi1 2) (pow (sin phi2) 3))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* 7/8 (* (pow phi1 2) (pow (sin phi2) 3))))) (pow (sin phi2) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (+ (* (pow phi1 2) (+ (* -3/2 (pow (sin phi2) 3)) (* (pow phi1 2) (+ (* -61/240 (* (pow phi1 2) (pow (sin phi2) 3))) (* 7/8 (pow (sin phi2) 3)))))) (pow (sin phi2) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)))) (* 13/120 (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))) (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (pow (cos (- lambda1 lambda2)) 3))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* -1/2 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* 13/120 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) #s(hole binary64 (* (pow phi1 3) (+ (* (pow phi1 2) (+ (* -1/2 (pow (cos (- lambda1 lambda2)) 3)) (* (pow phi1 2) (+ (* -41/3024 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 3))) (* 13/120 (pow (cos (- lambda1 lambda2)) 3)))))) (pow (cos (- lambda1 lambda2)) 3)))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow phi1 3)))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* 13/120 (pow phi1 2)) 1/2))))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (* (pow phi1 3) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 13/120 (* -41/3024 (pow phi1 2)))) 1/2))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))) (* -1/6 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2)))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi2))))) (pow (sin phi2) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1/3 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* 2/45 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) #s(hole binary64 (* (pow phi1 2) (+ (* (pow phi1 2) (+ (* -1/3 (pow (cos (- lambda1 lambda2)) 2)) (* (pow phi1 2) (+ (* -1/315 (* (pow phi1 2) (pow (cos (- lambda1 lambda2)) 2))) (* 2/45 (pow (cos (- lambda1 lambda2)) 2)))))) (pow (cos (- lambda1 lambda2)) 2)))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow phi1 2)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* -1/3 (pow phi1 2))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* 2/45 (pow phi1 2)) 1/3))))))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (* (pow phi1 2) (+ 1 (* (pow phi1 2) (- (* (pow phi1 2) (+ 2/45 (* -1/315 (pow phi1 2)))) 1/3))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (sin phi2)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (sin phi2) (* phi1 (- (* phi1 (- (+ (* -3/2 (sin phi2)) (* phi1 (- (* -1 (/ (* (pow (cos phi2) 3) (pow (cos (- lambda1 lambda2)) 3)) (pow (sin phi2) 2))) (+ (* -1 (/ (* (cos phi2) (* (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (pow (sin phi2) 2))) (+ (* -1/2 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (/ (* (cos phi2) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* -3/2 (sin phi2)) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2))))))) (sin phi2)))))))) (+ (* -1 (sin phi2)) (+ (* -1 (/ (* (pow (cos phi2) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (sin phi2))) (/ (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)) (sin phi2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (pow (sin phi2) 2)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi1 (+ (* phi1 (+ (* -1 (pow (sin phi2) 2)) (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (pow (sin phi2) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* phi1 (+ (* phi1 (+ (* phi1 (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/3 (* phi1 (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (pow (cos phi2) 2) (pow (cos (- lambda1 lambda2)) 2)))) (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/2 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/6 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* 1/120 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/24 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* 1/12 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow phi1 2) (+ (* -1/144 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/240 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+ (* -1/720 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* -1/5040 (* (cos phi2) (* (sin phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1/6 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/120 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* phi1 (+ (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi1 2) (+ (* -1/6 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi1 2) (+ (* -1/5040 (* (pow phi1 2) (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/120 (* (cos phi2) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (sin phi2)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* -1/2 (* phi1 (sin phi2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (sin phi2) (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* phi1 (+ (* -1/2 (sin phi2)) (* 1/6 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/6 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2))))) (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* 1/6 (* (cos phi2) (cos (- lambda1 lambda2)))) (* (pow phi1 2) (+ (* -1/120 (* (cos phi2) (cos (- lambda1 lambda2)))) (* 1/5040 (* (pow phi1 2) (* (cos phi2) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 phi2))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (+ phi2 (* phi1 (- (* phi1 (+ (* -1/2 phi2) (* 1/6 (* phi1 (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (cos phi1) #s(hole binary64 (cos phi1)))
#s(approx (sin phi1) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* phi2 (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 phi1))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (- phi1 phi2))))
#s(approx (- phi1 phi2) #s(hole binary64 phi1))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ phi2 phi1))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (+ phi1 phi2))))
#s(approx (+ phi1 phi2) #s(hole binary64 phi1))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi1 (+ 1 (/ phi2 phi1)))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (+ phi2 (* 1/2 (PI))))) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi1))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1/2 (* (pow phi1 2) (sin phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 (sin phi2)) (/ (sin phi2) (pow phi1 2))) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1/2 (* phi1 (sin phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1/2 (* phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi1 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (* 1/2 (PI))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (sin (+ phi1 (+ phi2 (PI)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) phi1))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (+ phi2 (PI))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (+ (/ phi2 phi1) (/ (PI) phi1))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi1))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (+ phi2 (* 1/2 (PI))) phi1)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (* (cos phi2) (sin phi1))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (+ phi2 (* 1/2 (PI)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (* (cos phi2) (sin phi1)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (- (+ (* -1/2 phi2) (/ phi2 (pow phi1 2))) (/ (cos (- lambda1 lambda2)) phi1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (pow phi1 2) phi2))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (cos (- lambda1 lambda2)) phi1)) (* -1/2 phi2)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (* (cos phi2) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 phi1)))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* phi1 (- (* 1/2 (/ (PI) phi1)) 1))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (+ phi1 (PI)) #s(hole binary64 phi1))
#s(approx (+ phi1 (PI)) #s(hole binary64 (* phi1 (+ 1 (/ (PI) phi1)))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi1 2))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(hole binary64 (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(hole binary64 (- (/ 1 (pow phi1 2)) 1/2)))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (+ phi1 (* 1/2 (PI))) phi2)) (cos (+ phi1 (+ phi2 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) phi2))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (- (+ 1 (* 1/2 (/ (PI) phi1))) (/ phi2 phi1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ phi2 (* 1/2 (PI)))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi1))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi1 (+ 1 (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1))))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 phi1))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* phi1 (+ 1 (* 1/2 (/ (PI) phi1))))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow (cos phi1) 2) (pow (sin phi2) 2))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* (cos phi1) (sin phi2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow (cos phi1) 3) (pow (sin phi2) 3))))
#s(approx (pow (sin phi1) 3) #s(hole binary64 (pow (sin phi1) 3)))
#s(approx (pow (sin phi1) 2) #s(hole binary64 (pow (sin phi1) 2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (- (* phi2 (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) #s(hole binary64 (* phi2 (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (+ phi1 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (neg (+ phi2 (* -1 phi1))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (/ phi2 phi1) 1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi2 (* -1 phi1)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ phi2 phi1)) 1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (neg (+ phi2 (* -1 phi1)))) (sin (- phi2 (* -1 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (neg (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (+ (* 1/2 (/ (PI) phi1)) (/ phi2 phi1)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2)))) phi1)) (* -1/2 (sin phi2))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 (sin phi2)) (/ (* (cos phi2) (cos (- lambda1 lambda2))) phi1))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi1 (+ (* 1/2 phi2) (/ (cos (- lambda1 lambda2)) phi1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (sin (- (+ phi2 (PI)) (* -1 phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi2 (PI)) (* -1 phi1)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (PI)) phi1)) 1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (+ phi2 (+ (* -1 phi1) (* 1/2 (PI))))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* (pow phi1 2) (+ (* -1 (/ (+ (cos (- lambda1 lambda2)) (* -1 (/ phi2 phi1))) phi1)) (* -1/2 phi2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (+ (* -1 (/ (sin phi2) phi1)) (* (cos phi2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1)))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) #s(hole binary64 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) #s(hole binary64 (cos (+ (* -1 phi1) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi1) #s(hole binary64 (* -1 (* phi1 (+ 1 (* -1/2 (/ (PI) phi1)))))))
#s(approx (sin (+ phi1 (PI))) #s(hole binary64 (sin (- (PI) (* -1 phi1)))))
#s(approx (+ phi1 (PI)) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (PI) phi1)) 1)))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) #s(hole binary64 (* 1/2 (- (cos (+ (* -1 phi1) (* 1/2 (PI)))) (sin (- (PI) (* -1 phi1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1)))) (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi2 (* -1 phi1))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (- (* 1/2 (PI)) phi2) phi1)) 1)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi2 (* 1/2 (PI))) (* -1 phi1)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi1 (- (* -1 (/ (+ phi2 (* 1/2 (PI))) phi1)) 1)))))
#s(approx (+ phi1 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi1 (- (* -1/2 (/ (PI) phi1)) 1)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (- (* (sin phi2) (sin (- (* 1/2 (PI)) (* -1 phi1)))) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* 1/2 (PI))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx phi2 #s(hole binary64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (cos phi1) (sin phi2)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (sin phi2) #s(hole binary64 phi2))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (sin phi2) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/120 (* -1/5040 (pow phi2 2)))) 1/6))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (cos phi2) #s(hole binary64 1))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (cos phi2) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (sin (PI)))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* -1/6 (* (pow phi2 2) (sin (PI))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* (pow phi2 2) (+ (* -1/6 (sin (PI))) (* 1/120 (* (pow phi2 2) (sin (PI))))))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* phi2 (+ (sin (PI)) (* (pow phi2 2) (+ (* -1/6 (sin (PI))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (PI)))) (* 1/120 (sin (PI)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (sin (- lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (sin (- lambda1 lambda2)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (sin (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (- lambda1 lambda2)))) (* 1/24 (sin (- lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (sin phi1)))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (sin phi1) (cos phi2)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (* -1 lambda2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/2 lambda2)))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (* 1/24 lambda1))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) #s(hole binary64 (+ lambda1 (+ (* -1 lambda2) (* (pow phi2 2) (+ (* -1/2 lambda1) (+ (* 1/2 lambda2) (* (pow phi2 2) (+ (* -1/24 lambda2) (+ (* 1/24 lambda1) (* (pow phi2 2) (+ (* -1/720 lambda1) (* 1/720 lambda2)))))))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (* lambda2 (- (/ lambda1 lambda2) 1))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (* (pow phi2 2) (+ 1/2 (* -1/2 (/ lambda1 lambda2))))) (* lambda2 (- (/ lambda1 lambda2) 1)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (- (/ lambda1 lambda2) 1)) (* (pow phi2 2) (+ (* lambda2 (* (pow phi2 2) (- (* 1/24 (/ lambda1 lambda2)) 1/24))) (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) #s(hole binary64 (+ (* lambda2 (- (/ lambda1 lambda2) 1)) (* (pow phi2 2) (+ (* lambda2 (+ 1/2 (* -1/2 (/ lambda1 lambda2)))) (* (pow phi2 2) (+ (* lambda2 (* (pow phi2 2) (+ 1/720 (* -1/720 (/ lambda1 lambda2))))) (* lambda2 (- (* 1/24 (/ lambda1 lambda2)) 1/24)))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (/ lambda1 lambda2) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (* -1/2 (/ lambda1 lambda2)))) (/ lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (- (* 1/24 (/ lambda1 lambda2)) 1/24))))) (/ lambda1 lambda2)) 1)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) #s(hole binary64 (- (+ (* (pow phi2 2) (+ 1/2 (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (- (+ (* 1/24 (/ lambda1 lambda2)) (* (pow phi2 2) (+ 1/720 (* -1/720 (/ lambda1 lambda2))))) 1/24))))) (/ lambda1 lambda2)) 1)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (/ lambda1 lambda2)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* -1/2 (/ (* lambda1 (pow phi2 2)) lambda2)) (/ lambda1 lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ lambda1 lambda2)) (* 1/24 (/ (* lambda1 (pow phi2 2)) lambda2)))) (/ lambda1 lambda2))))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1/2 (/ lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/720 (/ (* lambda1 (pow phi2 2)) lambda2)) (* 1/24 (/ lambda1 lambda2)))))) (/ lambda1 lambda2))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 lambda1))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* -1/2 (* lambda1 (pow phi2 2))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* 1/24 (* lambda1 (pow phi2 2))))))))
#s(approx (* lambda1 (cos phi2)) #s(hole binary64 (+ lambda1 (* (pow phi2 2) (+ (* -1/2 lambda1) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (pow phi2 2))) (* 1/24 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (sin phi1)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* 1/2 (* phi2 (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1/2 (* phi2 (sin phi1))) (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* 1/2 (+ (cos phi1) (* -1 (cos phi1)))) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/2 (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* -1 (* phi2 (cos phi1))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (* -1 (cos phi1)) (* phi2 (+ (* -1/2 (sin phi1)) (* 1/6 (* phi2 (cos phi1))))))))))
#s(approx (- phi1 phi2) #s(hole binary64 (+ phi1 (* -1 phi2))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin phi1)))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (cos phi1)))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (sin phi1))))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (+ (sin phi1) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (sin phi1)) (* -1/6 (* phi2 (cos phi1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (+ (* phi2 (+ (* 1/2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))) (* phi2 (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/2 (* phi2 (* (cos lambda1) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1)))))))))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* 2 (* (cos lambda1) (sin phi1)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (+ (* -1 (* phi2 (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (+ (* 2 (* (cos lambda1) (sin phi1))) (* phi2 (+ (* phi2 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (* (cos lambda1) (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))) (* (cos lambda1) (+ (cos phi1) (* -1 (cos phi1)))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (* 2 (sin phi1))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (* -1 (cos phi1)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* -1 (* phi2 (sin phi1)))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (* 2 (sin phi1)) (* phi2 (+ (cos phi1) (+ (* -1 (cos phi1)) (* phi2 (+ (* -1 (sin phi1)) (* phi2 (+ (* -1/6 (cos phi1)) (* 1/6 (cos phi1))))))))))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 0))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 0))
#s(approx (sin (neg phi2)) #s(hole binary64 (* -1 phi2)))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* 1/6 (pow phi2 2)) 1))))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* (pow phi2 2) (+ 1/6 (* -1/120 (pow phi2 2)))) 1))))
#s(approx (sin (neg phi2)) #s(hole binary64 (* phi2 (- (* (pow phi2 2) (+ 1/6 (* (pow phi2 2) (- (* 1/5040 (pow phi2 2)) 1/120)))) 1))))
#s(approx (neg phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- phi1 (* 1/2 (PI)))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (- phi1 (* 1/2 (PI)))))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI)))))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- phi1 (* 1/2 (PI))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (sin (- phi1 (* 1/2 (PI))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (- phi1 (* 1/2 (PI)))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (- phi1 (* 1/2 (PI)))))))) (* -1 (sin (- phi1 (* 1/2 (PI))))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- phi1 (* 1/2 (PI)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (+ phi2 (* 1/2 (PI)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (neg lambda2)))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (neg lambda2))))))) (* (cos (* 1/2 (PI))) (sin (neg lambda2))))) (* (sin (neg lambda2)) (sin (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (cos lambda2) (sin lambda1))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))))) (* (cos lambda1) (sin lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (* lambda1 (cos lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/2 (sin lambda2))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (* 1/24 (* lambda1 (cos lambda2))))))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) #s(hole binary64 (+ (* -1 (sin lambda2)) (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (+ (* 1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/24 (sin lambda2)) (+ (* 1/24 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (cos lambda2))) (* 1/720 (sin lambda2))))))))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (sin lambda2)))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* -1/2 (* (pow phi2 2) (sin lambda2))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow phi2 2) (+ (* -1/2 (sin lambda2)) (* 1/24 (* (pow phi2 2) (sin lambda2))))))))
#s(approx (* (cos phi2) (sin lambda2)) #s(hole binary64 (+ (sin lambda2) (* (pow phi2 2) (+ (* -1/2 (sin lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin lambda2))) (* 1/24 (sin lambda2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (* lambda1 (cos lambda2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* lambda1 (* (pow phi2 2) (cos lambda2)))) (* lambda1 (cos lambda2)))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* 1/24 (* lambda1 (* (pow phi2 2) (cos lambda2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) #s(hole binary64 (+ (* lambda1 (cos lambda2)) (* (pow phi2 2) (+ (* -1/2 (* lambda1 (cos lambda2))) (* (pow phi2 2) (+ (* -1/720 (* lambda1 (* (pow phi2 2) (cos lambda2)))) (* 1/24 (* lambda1 (cos lambda2))))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (cos lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* -1/2 (* (pow phi2 2) (cos lambda2))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* 1/24 (* (pow phi2 2) (cos lambda2))))))))
#s(approx (* (cos lambda2) (cos phi2)) #s(hole binary64 (+ (cos lambda2) (* (pow phi2 2) (+ (* -1/2 (cos lambda2)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda2))) (* 1/24 (cos lambda2)))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (+ (* -1/2 (pow phi1 2)) (* phi2 (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (- (* 1/12 (pow phi1 2)) 1/6))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* 1/2 (* phi2 (cos (- lambda1 lambda2)))))) (cos (- lambda1 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* phi2 (+ (* -1/2 phi1) (* phi2 (- (* 1/12 (* phi1 phi2)) (* -1/2 (cos (- lambda1 lambda2))))))) (cos (- lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos lambda1) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (* (cos lambda1) (sin phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/2 (* (cos lambda1) (sin phi1))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos lambda1) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (cos phi1) (* phi2 (- (* -1/6 (* phi2 (cos phi1))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1/6 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/120 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI))))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (sin (+ phi1 (* 1/2 (PI)))))) (* 1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 1))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* (* phi2 phi2) 1/24) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* phi2 phi2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) #s(hole binary64 (+ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/24 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))) (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (* phi2 (+ (* -1/2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* -1/2 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* -1/6 (cos (+ phi1 (PI)))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (- (* 1/2 (PI)) phi1)))) (* -1/2 (sin (+ phi1 (PI)))))) (+ (cos (+ phi1 (PI))) (sin (- (* 1/2 (PI)) phi1)))))) (sin (+ phi1 (PI))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) phi1))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* -1 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* -1/2 (* phi2 (cos (- (* 1/2 (PI)) phi1)))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* 1/6 (* phi2 (sin (- (* 1/2 (PI)) phi1)))))) (sin (- (* 1/2 (PI)) phi1)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (* 1/2 (PI)) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (- (+ phi2 (* 1/2 (PI))) phi1)))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (+ phi1 (PI)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (cos (+ phi1 (PI)))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* -1/2 (* phi2 (sin (+ phi1 (PI))))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (+ (sin (+ phi1 (PI))) (* phi2 (+ (cos (+ phi1 (PI))) (* phi2 (+ (* -1/2 (sin (+ phi1 (PI)))) (* -1/6 (* phi2 (cos (+ phi1 (PI))))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (+ phi1 (PI))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (* (cos lambda1) (sin phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* (cos lambda1) (sin phi1)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(hole binary64 (+ (* (cos lambda1) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos lambda1) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos lambda1) (sin phi1)))) (* 1/24 (* (cos lambda1) (sin phi1))))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (cos lambda1)))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* -1/2 (* (pow phi2 2) (cos lambda1))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* 1/24 (* (pow phi2 2) (cos lambda1))))))))
#s(approx (* (cos lambda1) (cos phi2)) #s(hole binary64 (+ (cos lambda1) (* (pow phi2 2) (+ (* -1/2 (cos lambda1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos lambda1))) (* 1/24 (cos lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))) (* phi2 (+ (* 1/2 (* (cos (- lambda1 lambda2)) (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* phi2 (+ (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1))))))) (* 1/2 (* (cos (- lambda1 lambda2)) (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))) (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* 1/2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) phi1)) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (+ (cos (- (* 1/2 (PI)) phi1)) (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* phi2 (- (+ (* -1/2 (cos (- (* 1/2 (PI)) phi1))) (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* -1/6 (sin (- (* 1/2 (PI)) phi1)))))) (* -1/2 (cos (+ phi1 (* 1/2 (PI)))))))) (sin (- (* 1/2 (PI)) phi1))))) (cos (+ phi1 (* 1/2 (PI)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(hole binary64 (+ (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* 1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* 1/2 (* (pow phi2 2) (sin phi1))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* -1/24 (* (pow phi2 2) (sin phi1))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (neg (* (sin phi1) (cos phi2))) #s(hole binary64 (- (* (pow phi2 2) (- (* (pow phi2 2) (- (* 1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))) (* -1/2 (sin phi1)))) (sin phi1))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (sin phi1)))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* -1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* 1/24 (* (pow phi2 2) (sin phi1))))))))
#s(approx (* (cos phi2) (sin phi1)) #s(hole binary64 (+ (sin phi1) (* (pow phi2 2) (+ (* -1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin phi1))) (* 1/24 (sin phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (cos (* 1/2 (PI)))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (cos (* 1/2 (PI))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (* -1 (sin phi1))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* 1/2 (* (pow phi2 2) (sin phi1))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (sin phi1))) (* 1/2 (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) #s(hole binary64 (+ (* -1 (sin phi1)) (* (pow phi2 2) (+ (* 1/2 (sin phi1)) (* (pow phi2 2) (+ (* -1/24 (sin phi1)) (* 1/720 (* (pow phi2 2) (sin phi1))))))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (* -1/6 (pow phi2 2)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (pow phi2 2) #s(hole binary64 (pow phi2 2)))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 1))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (pow phi2 4) #s(hole binary64 (pow phi2 4)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* -1/2 (pow phi2 2))) (pow phi2 4))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (/ (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (/ (+ 1 (* 1/24 (pow phi2 4))) (pow phi2 4))))
#s(approx (/ 1 (pow phi2 4)) #s(hole binary64 (/ 1 (pow phi2 4))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) #s(hole binary64 (/ 1/2 (pow phi2 2))))
#s(approx (/ 1 (pow phi2 2)) #s(hole binary64 (/ 1 (pow phi2 2))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (* 1/24 (pow phi2 2)) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 -1/2))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (- (* 1/24 (pow phi2 2)) 1/2)))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2))))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (+ 1/24 (* -1/720 (pow phi2 2)))))
#s(approx (* -1/720 (pow phi2 2)) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 1))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* 1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* 1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/24 (* phi1 (cos (- lambda1 lambda2)))) (* 1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi1 (cos (- lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1/2 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* 1/24 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* phi1 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/2 (* phi1 (cos (- lambda1 lambda2)))) (* (pow phi2 2) (+ (* -1/720 (* phi1 (* (pow phi2 2) (cos (- lambda1 lambda2))))) (* 1/24 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (cos (- lambda1 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* -1/2 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* 1/24 (* (pow phi2 2) (cos (- lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (cos (- lambda1 lambda2)) (* (pow phi2 2) (+ (* -1/2 (cos (- lambda1 lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (cos (- lambda1 lambda2)))) (* 1/24 (cos (- lambda1 lambda2))))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* -1/2 (* (pow phi1 2) phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (cos phi1) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* phi2 (- (+ (cos phi1) (* phi2 (- (* phi2 (- (* -1/6 (cos phi1)) (* -1/6 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI)))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))))) (* (cos (* 1/2 (PI))) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (* 1/2 (PI))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin phi1) (sin (* 1/2 (PI))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (sin phi1))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin phi1) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin phi1) (sin (* 1/2 (PI))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin phi1)))))) (* (cos (* 1/2 (PI))) (sin phi1)))) (* (sin phi1) (sin (* 1/2 (PI)))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 1))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (+ 1 (* -1/2 (pow phi2 2)))))
#s(approx (* -1/2 (pow phi2 2)) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 phi2))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* phi2 (+ 1 (* -1/6 (pow phi2 2))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 1))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (+ 1 (* -1/6 (pow phi2 2)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 -1/6))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (- (* 1/120 (pow phi2 2)) 1/6)))
#s(approx (* 1/120 (pow phi2 2)) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (* -1 (* phi1 (cos (- lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ phi2 (* -1 (* phi1 (cos (- lambda1 lambda2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* 1/2 (* phi1 (* phi2 (cos (- lambda1 lambda2))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) #s(hole binary64 (+ (* -1 (* phi1 (cos (- lambda1 lambda2)))) (* phi2 (+ 1 (* phi2 (+ (* -1/6 phi2) (* 1/2 (* phi1 (cos (- lambda1 lambda2)))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (* -1 (cos (- lambda1 lambda2)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (/ phi2 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* 1/2 (* phi2 (cos (- lambda1 lambda2)))) (/ 1 phi1))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) #s(hole binary64 (+ (* -1 (cos (- lambda1 lambda2))) (* phi2 (+ (* phi2 (+ (* -1/6 (/ phi2 phi1)) (* 1/2 (cos (- lambda1 lambda2))))) (/ 1 phi1))))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (/ phi2 phi1)))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* -1/6 (/ (pow phi2 2) phi1)) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* 1/120 (/ (pow phi2 2) phi1)) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (/ (sin phi2) phi1) #s(hole binary64 (* phi2 (+ (* (pow phi2 2) (- (* (pow phi2 2) (+ (* -1/5040 (/ (pow phi2 2) phi1)) (* 1/120 (/ 1 phi1)))) (* 1/6 (/ 1 phi1)))) (/ 1 phi1)))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 phi1))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* -1/2 (* phi1 (pow phi2 2))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* 1/24 (* phi1 (pow phi2 2))))))))
#s(approx (* phi1 (cos phi2)) #s(hole binary64 (+ phi1 (* (pow phi2 2) (+ (* -1/2 phi1) (* (pow phi2 2) (+ (* -1/720 (* phi1 (pow phi2 2))) (* 1/24 phi1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (* phi2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* phi2 (- (* 1/2 (* phi2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/2 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* phi2 (+ (* 1/2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* 1/2 (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/2 (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (sin (+ phi1 (* 1/2 (PI)))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (* phi2 (- (+ (sin (+ phi1 (* 1/2 (PI)))) (* (pow phi2 2) (- (+ (* -1/6 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (+ (* 1/120 (sin (+ phi1 (* 1/2 (PI))))) (* (pow phi2 2) (- (* -1/5040 (sin (+ phi1 (* 1/2 (PI))))) (* 1/5040 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1/120 (sin (+ phi1 (* 1/2 (PI)))))))) (* 1/6 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (sin (+ phi1 (* 1/2 (PI))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* -1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (* -1 (sin (+ phi1 (* 1/2 (PI))))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (* -1 phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (* 1/2 (PI))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* -1 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* -1/2 (* phi2 (cos (+ phi1 (* 1/2 (PI)))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (+ (cos (+ phi1 (* 1/2 (PI)))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (+ phi1 (* 1/2 (PI))))) (* 1/6 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))) (sin (+ phi1 (* 1/2 (PI)))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (+ phi1 (* 1/2 (PI)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* -1 (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* -1 (* phi2 (+ (* -1 (/ (* (cos phi1) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (* -1/2 (cos phi1)) (* 1/6 (cos phi1)))))) (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (pow (cos phi1) 2) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (* -1/3 (pow (cos phi1) 2)) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) #s(hole binary64 (- (* (pow phi2 2) (- (+ (* (pow phi2 2) (- (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (- (* 2/45 (pow (cos phi1) 2)) (* -2/45 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (pow (cos phi1) 2)) (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (pow (cos phi1) 2))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* -1/3 (* (pow phi2 2) (pow (cos phi1) 2))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* 2/45 (* (pow phi2 2) (pow (cos phi1) 2))))) (pow (cos phi1) 2)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) #s(hole binary64 (* (pow phi2 2) (+ (* (pow phi2 2) (+ (* -1/3 (pow (cos phi1) 2)) (* (pow phi2 2) (+ (* -1/315 (* (pow phi2 2) (pow (cos phi1) 2))) (* 2/45 (pow (cos phi1) 2)))))) (pow (cos phi1) 2)))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1/6 (* (pow phi2 2) (cos phi1)))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* 1/120 (* (pow phi2 2) (cos phi1)))))))))
#s(approx (* (sin phi2) (cos phi1)) #s(hole binary64 (* phi2 (+ (cos phi1) (* (pow phi2 2) (+ (* -1/6 (cos phi1)) (* (pow phi2 2) (+ (* -1/5040 (* (pow phi2 2) (cos phi1))) (* 1/120 (cos phi1))))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* -1 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* 1/3 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* (pow phi2 2) (+ (* -2/45 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* 1/3 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (cos (- lambda1 lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/24 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (sin phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* -1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) #s(hole binary64 (+ (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* phi2 (cos phi1))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (* (cos (neg lambda2)) (sin phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* (cos (neg lambda2)) (sin phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* 1/24 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) #s(hole binary64 (+ (* (cos (neg lambda2)) (sin phi1)) (* (pow phi2 2) (+ (* -1/2 (* (cos (neg lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (cos (neg lambda2)) (sin phi1)))) (* 1/24 (* (cos (neg lambda2)) (sin phi1))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (/ (* (cos phi1) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* (cos (- lambda1 lambda2)) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (pow (cos phi1) 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))) (* -1 (cos phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (* -1 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* 3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (pow (cos phi1) 3)) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) #s(hole binary64 (- (* (pow phi2 2) (- (* phi2 (+ (* -7/8 (* phi2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (pow (cos phi1) 3))) (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (pow (cos phi1) 3))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* -1/2 (* (pow phi2 2) (pow (cos phi1) 3))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* 13/120 (* (pow phi2 2) (pow (cos phi1) 3))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) #s(hole binary64 (* (pow phi2 3) (+ (* (pow phi2 2) (+ (* -1/2 (pow (cos phi1) 3)) (* (pow phi2 2) (+ (* -41/3024 (* (pow phi2 2) (pow (cos phi1) 3))) (* 13/120 (pow (cos phi1) 3)))))) (pow (cos phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* -3/2 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* 7/8 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) #s(hole binary64 (+ (* (pow phi2 2) (+ (* -3/2 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))) (* (pow phi2 2) (+ (* -61/240 (* (pow phi2 2) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))) (* 7/8 (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3))))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* -1/6 (* (cos (- lambda1 lambda2)) (sin phi1)))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (cos (- lambda1 lambda2)) (sin phi1))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (/ (* phi2 (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (cos (- lambda1 lambda2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (* phi2 (- (+ (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (- (/ (pow (cos phi1) 3) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* -1 (/ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+ (/ (* (cos phi1) (* (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 2))) (/ (* (cos phi1) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (- (* 3/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1))))))) (* (pow (cos (- lambda1 lambda2)) 2) (sin phi1)))))))) (+ (* -1 (/ (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2)) (* (cos (- lambda1 lambda2)) (sin phi1)))) (/ (* (pow (cos phi1) 2) (pow (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) 2)) (* (pow (cos (- lambda1 lambda2)) 3) (sin phi1)))))) (* -1 (/ (* (cos phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (cos (- lambda1 lambda2)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (pow (cos phi1) 2))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (+ (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (pow (cos phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* phi2 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1 (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2))) (* phi2 (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))) (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) #s(hole binary64 (* phi2 (+ (* (cos phi1) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/6 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (* (pow phi2 2) (+ (* (cos phi1) (+ (* 1/120 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/12 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))) (* (pow phi2 2) (* (cos phi1) (+ (* -1/144 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/240 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+ (* -1/720 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* -1/5040 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* -1/2 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* 1/24 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) #s(hole binary64 (+ (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (* (pow phi2 2) (+ (* -1/2 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (* 1/24 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (cos phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* 1/2 (* phi2 (* (cos (- lambda1 lambda2)) (sin phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* phi2 (+ (cos phi1) (* phi2 (+ (* -1/6 (* phi2 (cos phi1))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (* -1 (* (cos (- lambda1 lambda2)) (sin phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/2 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) #s(hole binary64 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* 1/2 (* (cos (- lambda1 lambda2)) (sin phi1))) (* (pow phi2 2) (+ (* -1/24 (* (cos (- lambda1 lambda2)) (sin phi1))) (* 1/720 (* (pow phi2 2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (* 1/2 (PI))) (sin (- lambda1 lambda2))))))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1 (* phi2 (cos (* 1/2 (PI))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (* -1 (cos (* 1/2 (PI)))) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/6 (* phi2 (cos (* 1/2 (PI))))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* 1/2 (PI))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (+ (* -1 phi2) (* 1/2 (PI)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2)))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2)))) (* -1/6 (* phi2 (* (sin (PI)) (sin (- lambda1 lambda2))))))) (* (sin (PI)) (sin (- lambda1 lambda2))))) (* (sin (* 1/2 (PI))) (sin (- lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (sin (PI))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* -1/2 (* phi2 (sin (* 1/2 (PI))))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* phi2 (+ (sin (PI)) (* phi2 (+ (* -1/2 (sin (* 1/2 (PI)))) (* -1/6 (* phi2 (sin (PI)))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (sin (* 1/2 (PI)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* -1/2 (* (pow phi2 2) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* 1/24 (* (pow phi2 2) (sin (* 1/2 (PI))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (+ (sin (* 1/2 (PI))) (* (pow phi2 2) (+ (* -1/2 (sin (* 1/2 (PI)))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (* 1/2 (PI))))) (* 1/24 (sin (* 1/2 (PI)))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* -1/2 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* 1/24 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) #s(hole binary64 (+ (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))) (* (pow phi2 2) (+ (* -1/2 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2))))))) (* 1/24 (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda2) (+ (pow lambda1 2) (pow lambda2 2)))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* -1/2 (* phi2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) #s(hole binary64 (+ (* phi2 (+ (* phi2 (+ (* -1/2 (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))))) (* -1/6 (* phi2 (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))) (* (cos (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))) (* (sin (* 1/2 (PI))) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* -1/2 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* (cos lambda2) (sin lambda1))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* 1/24 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) #s(hole binary64 (- (+ (* (cos lambda2) (sin lambda1)) (* (pow phi2 2) (+ (* -1/2 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))) (* 1/24 (- (* (cos lambda2) (sin lambda1)) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI)))))))))))) (* (sin lambda2) (sin (+ lambda1 (* 1/2 (PI))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (+ (* 1/2 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (* phi2 (+ (* 1/2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))) (* phi2 (+ (* 1/2 (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* 1/2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (+ (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* phi2 (- (* -1/6 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* phi2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/6 (* phi2 (sin (- lambda1 (+ lambda2 (* 1/2 (PI))))))))) (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- lambda1 (+ lambda2 (* 1/2 (PI))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* -1 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* -1/2 (* phi2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (cos (- (+ lambda1 (* 1/2 (PI))) lambda2)) (* phi2 (- (* phi2 (+ (* -1/2 (cos (- (+ lambda1 (* 1/2 (PI))) lambda2))) (* 1/6 (* phi2 (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (- (+ lambda1 (* 1/2 (PI))) lambda2)))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* -1/2 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* 1/2 (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (+ (* 1/2 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))) (* phi2 (+ (* -1/2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* phi2 (+ (* -1/2 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (* 1/2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (sin (- lambda1 lambda2))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* -1 (* phi2 (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2)))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- lambda1 (+ lambda2 (* 1/2 (PI))))) (+ (sin (- lambda1 lambda2)) (* phi2 (- (* phi2 (- (+ (* -1 (* phi2 (+ (* 1/6 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* 1/6 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))) (+ (* -1/2 (cos (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1/2 (sin (- lambda1 lambda2))))) (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))) (+ (* -1 (sin (- lambda1 (+ lambda2 (* 1/2 (PI)))))) (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (sin (- lambda1 lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (* 1/2 (PI)))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* -1 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* -1/2 (sin (neg lambda2))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (- (+ (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))))) (* -1/2 (sin (neg lambda2))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (sin (neg lambda2)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (neg lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (neg lambda2)) (cos (* 1/2 (PI))))) (* 1/6 (* phi2 (* (cos (neg lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (neg lambda2)) (cos (* 1/2 (PI)))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (sin (neg lambda2))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* -1/2 (* (pow phi2 2) (sin (neg lambda2)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (neg lambda2))) (* 1/24 (* (pow phi2 2) (sin (neg lambda2)))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) #s(hole binary64 (+ (sin (neg lambda2)) (* (pow phi2 2) (+ (* -1/2 (sin (neg lambda2))) (* (pow phi2 2) (+ (* -1/720 (* (pow phi2 2) (sin (neg lambda2)))) (* 1/24 (sin (neg lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* -1 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* -1/2 (* phi2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (+ (* phi2 (+ (* -1 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI))))) (* phi2 (+ (* -1/2 (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2)))) (* 1/6 (* phi2 (* (cos (- lambda1 lambda2)) (sin (* 1/2 (PI)))))))))) (* (cos (* 1/2 (PI))) (cos (- lambda1 lambda2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (* 1/2 (PI)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* -1 (* phi2 (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* -1/2 (* phi2 (cos (* 1/2 (PI))))) (sin (* 1/2 (PI))))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (+ (cos (* 1/2 (PI))) (* phi2 (- (* phi2 (+ (* -1/2 (cos (* 1/2 (PI)))) (* 1/6 (* phi2 (sin (* 1/2 (PI))))))) (sin (* 1/2 (PI))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (sin phi2) #s(hole binary64 (sin phi2)))
#s(approx (cos phi2) #s(hole binary64 (cos phi2)))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (* (sin phi2) (sin (PI))) #s(hole binary64 (* (sin phi2) (sin (PI)))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (sin (+ phi1 (* 1/2 (PI)))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (sin (+ phi1 (* 1/2 (PI)))) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- phi1 phi2) #s(hole binary64 (* phi2 (- (/ phi1 phi2) 1))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* phi2 (+ 1 (/ phi1 phi2)))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (neg phi2))))))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 (+ (sin phi2) (sin (neg phi2)))))
#s(approx (sin (neg phi2)) #s(hole binary64 (sin (neg phi2))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ phi1 phi2) (+ 1 (* 1/2 (/ (PI) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 phi2))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* phi2 (+ 1 (* 1/2 (/ (PI) phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* phi2 (+ (* -1 (/ (cos (- lambda1 lambda2)) phi2)) (* -1/2 phi1)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (- (+ 1 (* 1/2 (/ (PI) phi2))) (/ phi1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 phi2))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* phi2 (+ 1 (+ (/ phi1 phi2) (/ (PI) phi2))))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (+ phi2 (* 1/2 (PI))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (cos (* 1/2 (PI))) (sin phi2)))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1/6 (pow phi2 3))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 3) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* -1/6 (pow phi2 2))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/6))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 1/24))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- 1/24 (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(hole binary64 (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 1/24))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(hole binary64 (+ 1/24 (/ 1 (pow phi2 4)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* 1/24 (pow phi2 4))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) #s(hole binary64 (* (pow phi2 4) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (* 1/24 (pow phi2 2))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(hole binary64 (* (pow phi2 2) (- 1/24 (* 1/2 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(hole binary64 (* (pow phi2 6) (- (+ (* 1/24 (/ 1 (pow phi2 2))) (/ 1 (pow phi2 6))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* -1/720 (pow phi2 6))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) #s(hole binary64 (* (pow phi2 6) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) (+ 1/720 (/ 1/2 (pow phi2 4)))))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* -1/720 (pow phi2 4))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) #s(hole binary64 (* (pow phi2 4) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (* -1/720 (pow phi2 2))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (* 1/24 (/ 1 (pow phi2 2))) 1/720))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (* -1/2 (pow phi1 2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* phi2 (+ 1 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* phi2 (+ (* -1 (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) (* -1/2 (pow phi1 2))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* -1/2 (pow phi2 2))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(hole binary64 (* (pow phi2 2) (- (/ 1 (pow phi2 2)) 1/2))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* 1/120 (pow phi2 5))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* (pow phi2 5) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* (pow phi2 5) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(hole binary64 (* (pow phi2 4) (- (+ 1/120 (/ 1 (pow phi2 4))) (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* 1/120 (pow phi2 4))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) #s(hole binary64 (* (pow phi2 4) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (* 1/120 (pow phi2 2))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(hole binary64 (* (pow phi2 2) (- 1/120 (* 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (- (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2)) 1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 phi2))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* phi2 (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ phi1 phi2))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) phi2))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* phi2 (- (* 1/2 (/ (PI) phi2)) 1))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) #s(hole binary64 (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) #s(hole binary64 (* (cos phi2) (sin (* 1/2 (PI))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi2 (cos phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* phi2 (+ (cos phi1) (* -1 (/ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) phi2))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (/ lambda1 phi2) (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda2 phi2)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* phi2 (- (+ 1 (+ (* 1/2 (/ (PI) phi2)) (/ lambda1 phi2))) (/ lambda2 phi2)))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (+ phi2 (* 1/2 (PI))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (- (* 1/2 (PI)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (sin (+ phi1 (* 1/2 (PI))))) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(hole binary64 (* 1/2 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (sin (- phi1 phi2)) #s(hole binary64 (sin (+ phi1 (* -1 phi2)))))
#s(approx (- phi1 phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ phi1 phi2)))))))
#s(approx (sin (+ phi1 phi2)) #s(hole binary64 (sin (- phi1 (* -1 phi2)))))
#s(approx (+ phi1 phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ phi1 phi2)) 1)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) #s(hole binary64 (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) #s(hole binary64 (* (cos lambda1) (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) #s(hole binary64 (+ (sin (+ phi1 (* -1 phi2))) (sin (- phi1 (* -1 phi2))))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(hole binary64 (* 1/2 (+ (sin phi2) (sin (* -1 phi2))))))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(hole binary64 (+ (sin phi2) (sin (* -1 phi2)))))
#s(approx (sin (neg phi2)) #s(hole binary64 (sin (* -1 phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* -1 phi2)) (* 1/2 (PI))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (+ phi2 (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (+ phi2 (* 1/2 (PI))) #s(hole binary64 (* -1 (* phi2 (- (* -1/2 (/ (PI) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (sin (neg lambda2)) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 phi1) (/ (cos (- lambda1 lambda2)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (sin (- (+ phi1 (PI)) (* -1 phi2))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (* 1/2 (PI)) phi1) phi2)) 1)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) #s(hole binary64 (sin (- (+ phi1 (PI)) (* -1 phi2)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (PI)) phi2)) 1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) #s(hole binary64 (* 1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) #s(hole binary64 (* 1/2 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) #s(hole binary64 (- (cos (- (* 1/2 (PI)) (+ phi1 (* -1 phi2)))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) #s(hole binary64 (sin (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) #s(hole binary64 (- (* (cos phi1) (sin phi2)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (sin phi1) (sin (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) #s(hole binary64 (* -1 (* (pow phi2 3) (- 1/6 (/ 1 (pow phi2 2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (* 1/2 (pow phi1 2)) 1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (* -1 (* phi2 (- (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2)) 1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) #s(hole binary64 (* -1 (* phi2 (+ (* 1/2 (pow phi1 2)) (/ (* phi1 (cos (- lambda1 lambda2))) phi2))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) 1/120)))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) #s(hole binary64 (* -1 (* (pow phi2 5) (- (* 1/6 (/ 1 (pow phi2 2))) (+ 1/120 (/ 1 (pow phi2 4))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (cos (- lambda1 lambda2)) (sin phi1)) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) #s(hole binary64 (atan2 (* (cos phi2) (sin (- lambda1 lambda2))) (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(hole binary64 (- (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) #s(hole binary64 (* 1/2 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) #s(hole binary64 (- (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI))))) (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (+ phi1 (+ (* -1 phi2) (* 1/2 (PI)))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) #s(hole binary64 (cos (- (+ phi1 (* 1/2 (PI))) (* -1 phi2)))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (+ phi1 (* 1/2 (PI))) phi2)) 1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) #s(hole binary64 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) #s(hole binary64 (sin (+ (* -1 phi2) (* 1/2 (PI))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1/2 (/ (PI) phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) #s(hole binary64 (atan2 (* (sin (+ (* -1 phi2) (* 1/2 (PI)))) (sin (- lambda1 lambda2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) #s(hole binary64 (* -1 (* phi2 (+ (* -1 (cos phi1)) (/ (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) phi2))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) #s(hole binary64 (* 1/2 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) #s(hole binary64 (- (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (+ 1 (* -1 (/ (- lambda1 (+ lambda2 (* 1/2 (PI)))) phi2)))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) #s(hole binary64 (cos (- (+ lambda1 (* 1/2 (PI))) (+ lambda2 (* -1 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) #s(hole binary64 (* -1 (* phi2 (- (* -1 (/ (- (+ lambda1 (* 1/2 (PI))) lambda2) phi2)) 1)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) #s(hole binary64 (atan2 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) #s(hole binary64 (* 1/2 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) #s(hole binary64 (- (+ (cos (- (+ lambda1 (* -1 phi2)) (+ lambda2 (* 1/2 (PI))))) (* (cos phi2) (sin (- lambda1 lambda2)))) (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) #s(hole binary64 (- (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (- lambda1 lambda2))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) #s(hole binary64 (- (* (cos (neg lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2)))) (* (cos phi2) (sin (neg lambda2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) #s(hole binary64 (* (cos (neg lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) #s(hole binary64 (* (cos (- lambda1 lambda2)) (cos (- (* 1/2 (PI)) (* -1 phi2))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) #s(hole binary64 (cos (- (* 1/2 (PI)) (* -1 phi2)))))

Outputs
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
(sin.f64 (-.f64 lambda1 lambda2))
(-.f64 lambda1 lambda2)
lambda1
lambda2
(sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)
(*.f64 #s(literal 1/2 binary64) (PI.f64))
#s(literal 1/2 binary64)
(PI.f64)
phi2
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(*.f64 (cos.f64 phi1) (sin.f64 phi2))
(cos.f64 phi1)
phi1
(sin.f64 phi2)
(.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(cos.f64 phi2)
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
(sin.f64 phi1)
(sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
(-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)
(+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))
(fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))
(+.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))
(sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))
(sin.f64 (PI.f64))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))
(cos.f64 (-.f64 lambda1 lambda2))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
(-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 (cos.f64 lambda2) (sin.f64 lambda1))
(cos.f64 lambda2)
(sin.f64 lambda1)
(*.f64 (cos.f64 lambda1) (sin.f64 lambda2))
(cos.f64 lambda1)
(sin.f64 lambda2)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (sin.f64 lambda1) (sin.f64 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(literal -1 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
(*.f64 (sin.f64 phi1) (cos.f64 phi2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
(sin.f64 (neg.f64 lambda2))
(neg.f64 lambda2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
(cos.f64 (neg.f64 lambda2))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(literal -1/2 binary64)
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(literal -1/6 binary64)
(*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(*.f64 phi2 (cos.f64 phi1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))
(.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))
(fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2))
(+.f64 (.f64 #s(literal -1 binary64) (cos.f64 phi2)) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))
(/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2)
(*.f64 lambda1 (cos.f64 phi2))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))
(*.f64 lambda2 (sin.f64 lambda1))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))
#s(approx (sin phi1) phi1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* phi2 (cos phi1)) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(literal 1 binary64)
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 (-.f64 phi1 phi2))
(-.f64 phi1 phi2)
(sin.f64 (+.f64 phi1 phi2))
(+.f64 phi1 phi2)
#s(literal 2 binary64)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
(.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
(*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
(+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
(*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
(+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))
(sin.f64 (neg.f64 phi2))
(neg.f64 phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2)))
(sin.f64 #s(approx (- phi1 phi2) phi1))
#s(approx (- phi1 phi2) phi1)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64))
(+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2)))
(sin.f64 #s(approx (+ phi1 phi2) phi2))
#s(approx (+ phi1 phi2) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)))
(cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))
(/.f64 (PI.f64) #s(literal 2 binary64))
(cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
(.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
(fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))
(+.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
(*.f64 (cos.f64 phi2) (sin.f64 lambda2))
(.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2)))
(*.f64 (cos.f64 lambda2) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
(*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))
(pow.f64 lambda1 #s(literal 3 binary64))
#s(literal 3 binary64)
(-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))
(fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(+.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
(/.f64 lambda2 lambda1)
(/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))
(pow.f64 lambda1 #s(literal 2 binary64))
#s(literal 1/6 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))))
(+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ ( -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ ( -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ ( -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1)))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))
(*.f64 #s(literal -1/6 binary64) lambda1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
(fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
(+.f64 (.f64 #s(literal -1 binary64) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
(.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))
(fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))
(+.f64 (.f64 #s(literal -1/6 binary64) lambda1) (.f64 #s(literal 1/2 binary64) lambda2))
(*.f64 #s(literal 1/2 binary64) lambda2)
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) #s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
(.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
(fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
(/.f64 #s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1)
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1))
(/.f64 (sin.f64 lambda2) lambda1)
(*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))
(+.f64 (.f64 #s(approx (- ( (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1) (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))
(*.f64 phi1 phi2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
(sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
(-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)
(+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2))
#s(approx (cos phi1) (fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64)) #s(literal 1 binary64))
(*.f64 phi1 phi1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2))
#s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))
(fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64))
(+.f64 (.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2)) #s(literal 1 binary64))
(-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64))
(.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64))
(*.f64 phi2 phi2)
#s(literal 1/24 binary64)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64)))
(+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(*.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))
(*.f64 lambda1 (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64))) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)))
(cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
(cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (*.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))
(*.f64 lambda2 (cos.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1)))
(fma.f64 #s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))
(+.f64 (.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2) (sin.f64 lambda1))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2))
#s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1)))
(fma.f64 (fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))
(+.f64 (.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2) (sin.f64 lambda1))
(fma.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1)))
(+.f64 (.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1)) (neg.f64 (cos.f64 lambda1)))
(*.f64 #s(literal -1/2 binary64) lambda2)
(neg.f64 (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))
(.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))
(pow.f64 lambda2 #s(literal 2 binary64))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
(/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2)
(fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2)))
(+.f64 (.f64 #s(literal -1 binary64) (sin.f64 lambda1)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))
(/.f64 (cos.f64 lambda1) lambda2)
(*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
(+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
(-.f64 (.f64 #s(literal -1/2 binary64) #s(approx ( lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
(.f64 #s(literal -1/2 binary64) #s(approx ( lambda2 (cos lambda1)) lambda2))
#s(approx (* lambda2 (cos lambda1)) lambda2)
(*.f64 #s(literal -1 binary64) (sin.f64 lambda1))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))
(+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2)))
(*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))
#s(approx (sin lambda2) lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1))
#s(approx (sin lambda1) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))
(.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1))
(*.f64 (cos.f64 lambda1) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
(*.f64 #s(literal -1 binary64) lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) (sin.f64 phi2))
(*.f64 #s(literal -1 binary64) phi1)
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))
#s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)))
(fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))
(+.f64 (*.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2))) (cos.f64 lambda2))
(neg.f64 lambda1)
(neg.f64 (sin.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
(+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))
(.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))
(-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64))
(.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2))
(*.f64 lambda1 lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
(+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))))
(.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))
(-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))
(.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2)))
(fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))
(+.f64 (.f64 #s(literal -1/2 binary64) lambda1) (.f64 #s(literal 1/6 binary64) lambda2))
(*.f64 #s(literal 1/6 binary64) lambda2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
(.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
(.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1)) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))
(/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1)
(fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
(+.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1)) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
(/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1)
(fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
(+.f64 (.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))
(/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)
(*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))
(*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (cos phi2) #s(literal 1 binary64))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2))
#s(approx (sin phi2) phi2)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
(*.f64 (cos.f64 phi2) (sin.f64 phi1))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1))))
(neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)))
(+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ ( -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ ( -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))))))))
(+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))
(.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))))))
(+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)))))
(.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1))))
(fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))
(+.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) #s(approx (* lambda1 (cos (neg lambda2))) lambda1)))
(.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
(-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))
(*.f64 lambda1 (cos.f64 lambda2))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
(-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))
(.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))))
(+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))
(.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))
(-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))
(.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)))
(*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) lambda1))
#s(approx (- lambda1 lambda2) lambda1)
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))
(*.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(*.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2)))
#s(approx (- lambda1 lambda2) (neg.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
(.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))
(/.f64 lambda1 lambda2)
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
(.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
(*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))))
#s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))
(.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))
(/.f64 #s(literal 1 binary64) lambda1)
(/.f64 #s(literal 1 binary64) lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))
(*.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64)))
(sin.f64 #s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
(*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
(-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(approx ( (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))))
(.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
(/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2))
(sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)))
#s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))
(.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2)
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
(*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
(-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(pow.f64 phi2 #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))))
#s(approx (cos phi2) #s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
(.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
(pow.f64 phi2 #s(literal 4 binary64))
#s(literal 4 binary64)
(-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))
(*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
(-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
#s(literal -1/720 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))))
#s(approx (cos phi2) (fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))
(fma.f64 (*.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64))
(+.f64 (.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64)) #s(literal 1 binary64))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
(+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2))
(.f64 (.f64 (sin.f64 phi1) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
(.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
(+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
(*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64)))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
(*.f64 #s(literal -1 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
(.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))
(+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
(.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
(-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))
(*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64)))
#s(literal 1/120 binary64)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))
(.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))
(/.f64 (sin.f64 phi2) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))
(+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))))
(.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1))))
(neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))))
(neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))
(.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1))
(+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2)))
(fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))
(+.f64 (.f64 #s(approx (- ( (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1) (sin.f64 phi2))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))
(.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))))
(*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))
(-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) lambda1)))
(sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)))))
(.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))
(.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 ( 1/2 (PI))) lambda1) lambda2)))
(sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))
(-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
(.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
(-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))
(cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
(-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)
(sin.f64 (+.f64 phi1 (PI.f64)))
(+.f64 phi1 (PI.f64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))
(.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1))
(cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1))
#s(approx (* phi1 (cos phi2)) phi1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))
(*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))
(+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
(.f64 #s(approx (cos phi1) #s(approx (+ ( (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2))
#s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
(*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
(pow.f64 phi1 #s(literal 2 binary64))
(-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))
(/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
(*.f64 phi1 (cos.f64 phi2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))
(.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))))
(sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64)))
#s(approx (cos (neg lambda2)) #s(literal 1 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
(.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))
(+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1))
(*.f64 #s(literal -1/2 binary64) lambda1)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))))
(.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))
#s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))
(+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))))
(.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))
(*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)))
(cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)))
(cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))
(*.f64 #s(literal -1 binary64) phi2)
(cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))
(+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)
(+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(neg.f64 (-.f64 lambda1 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64))
(*.f64 (sin.f64 phi2) (cos.f64 phi1))
(pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
(*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
(pow.f64 (*.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 3 binary64))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
(*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
(pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))
(pow.f64 (sin.f64 phi1) #s(literal 2 binary64))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx ( (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64)))
(pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))))
(-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64)))
(pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))
(.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))))
(pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))
(.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2)))
(.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))
(.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1))))
(.f64 (cos.f64 phi2) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2)))
(sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2))))
(sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
(+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))
(*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))
(sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2))
(sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))))
(/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
(*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))
(pow.f64 lambda2 #s(literal 3 binary64))
(fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
(+.f64 (.f64 lambda1 lambda1) #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
(*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
(+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
(/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2))
(sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))))
(-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64)))
(fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2)))
(+.f64 (.f64 lambda1 lambda1) (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2)))
(fma.f64 lambda2 lambda2 (*.f64 lambda1 lambda2))
(+.f64 (.f64 lambda2 lambda2) (.f64 lambda1 lambda2))
(-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (sin.f64 lambda1))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(*.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx ( (cos lambda1) (sin lambda2)) (sin.f64 lambda2)))
(*.f64 (sin.f64 lambda1) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64)))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2)))
(fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))
(+.f64 (.f64 (.f64 #s(literal -1 binary64) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))) (sin.f64 phi2))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
(-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))
(sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))))
(.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(fma.f64 (cos.f64 lambda1) (cos.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 (cos.f64 lambda1) (cos.f64 lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
(sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))
(sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
(.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2)))
(*.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))
(sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1))
#s(approx (+ lambda1 (/ (PI) 2)) lambda1)
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2))
(-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2)))
(*.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))
(sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64))))
(+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 #s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
(-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))
(cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
(-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
(.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
(cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
(*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))))
(cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64))
(-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))))
(-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))
(*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))
(cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (- lambda1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- lambda1 lambda2) (-.f64 lambda1 lambda2))
#s(approx lambda1 lambda1)
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ lambda1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (* 1/2 (PI))) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (* (cos lambda2) (sin lambda1)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (cos lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))
#s(approx (* (cos lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* (cos lambda2) (sin lambda1)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda2)))))))))
#s(approx (sin lambda1) lambda1)
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)))))))
#s(approx (* (cos lambda1) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda2))))))))
#s(approx (cos lambda1) #s(literal 1 binary64))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1)))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 lambda2)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda1 (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda2)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (*.f64 #s(literal -1 binary64) (cos.f64 phi2)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) (/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2))
#s(approx (* lambda1 (cos phi2)) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))))
#s(approx (* lambda2 (sin lambda1)) (.f64 lambda1 (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/120 binary64) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal -1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/48 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/4 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/48 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (+.f64 (sin.f64 (-.f64 phi1 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (+.f64 (sin.f64 (-.f64 phi1 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (+.f64 (sin.f64 (-.f64 phi1 phi2)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal 1/24 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 lambda2))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)))) (*.f64 (cos.f64 lambda2) (cos.f64 phi2))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) lambda1)
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (pow lambda1 3) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ lambda2 lambda1) (/.f64 lambda2 lambda1))
#s(approx (/ 1 (pow lambda1 2)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (pow lambda1 2) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) lambda1)
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (* -1/6 lambda1) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2)))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 lambda2)))) lambda1))
#s(approx (/ (sin lambda2) lambda1) (/.f64 (sin.f64 lambda2) lambda1))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda1 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (neg (cos lambda1)) #s(literal -1 binary64))
#s(approx (neg (cos lambda1)) (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/24 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64)))
#s(approx (neg (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/720 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/24 binary64))))) #s(literal 1 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1)))) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1)))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1)) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (sin.f64 phi1))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 phi1))))) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (cos.f64 lambda2))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* lambda1 (sin lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (* lambda2 (cos lambda1)) lambda2)
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (* lambda2 (cos lambda1)) (+.f64 lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/24 binary64) lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/2 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (.f64 lambda1 lambda2)))))) #s(literal 1 binary64)))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (fma.f64 lambda1 lambda2 (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (fma.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (fma.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 #s(literal 1/4 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 #s(literal 1/4 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda2)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (-.f64 (fma.f64 lambda1 (fma.f64 lambda1 (-.f64 (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda2)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1/2 binary64)))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (/.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (/.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (/.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (-.f64 (*.f64 #s(literal -1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (-.f64 (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) #s(literal 1 binary64))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* -1 (/ (cos lambda1) lambda2)) (/.f64 #s(literal -1 binary64) lambda2))
#s(approx (* -1 (/ (cos lambda1) lambda2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* -1 (/ (cos lambda1) lambda2)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* -1 (/ (cos lambda1) lambda2)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (fma.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) lambda2)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda2))) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* -1/2 (cos lambda1)) #s(literal -1/2 binary64))
#s(approx (* -1/2 (cos lambda1)) (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 #s(literal -1/48 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* -1/2 (cos lambda1)) (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/1440 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/48 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/4 binary64) lambda2)))))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/4 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/4 binary64) lambda2)))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda2 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda2 (.f64 #s(literal 1/1440 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (* -1 (sin lambda1)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (* -1 (sin lambda1)) (.f64 lambda1 (-.f64 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 lambda2)))))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (cos.f64 lambda2))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))
#s(approx (neg lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ lambda1 (* -1 lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ lambda1 (* -1 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) #s(literal -1 binary64))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (* -1/2 (* lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda1 lambda2) (*.f64 lambda1 lambda2))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (-.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1 binary64)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (*.f64 #s(literal 1/6 binary64) lambda2))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (sin.f64 (neg.f64 lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (sin.f64 (neg.f64 lambda2)))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (*.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))))))) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2))))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) lambda1))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
#s(approx (/ (sin (neg lambda2)) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (* lambda1 (cos lambda2)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))) (sin.f64 lambda2)))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (*.f64 lambda1 (sin.f64 lambda2))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (cos.f64 lambda2))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (sin.f64 lambda2))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) lambda2)
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (* -1 (/ lambda1 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(approx (/ lambda1 lambda2) (/.f64 lambda1 lambda2))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))
#s(approx (* -1 (/ lambda2 lambda1)) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (/ lambda1 lambda2) 1) #s(literal -1 binary64))
#s(approx (- (/ lambda1 lambda2) 1) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) #s(literal -1 binary64))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) #s(literal 1 binary64))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))) lambda1))
#s(approx (/ 1 lambda1) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) #s(literal -1 binary64))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda1))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (/.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda1))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))))) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (cos.f64 (neg.f64 lambda2)))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (cos.f64 (neg.f64 lambda2)))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/4 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (+ lambda1 (* -1/2 lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1/2 binary64) lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(literal 1 binary64))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1))))
#s(approx (+ lambda2 (* -1/2 lambda1)) lambda2)
#s(approx (+ lambda2 (* -1/2 lambda1)) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (* -1/2 lambda1) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (neg (- lambda1 lambda2)) lambda2)
#s(approx (neg (- lambda1 lambda2)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal 1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 #s(literal 2 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64)))))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 (neg.f64 lambda2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) #s(literal 2 binary64))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal 2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (*.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))) (.f64 lambda1 (fma.f64 lambda1 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal -2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (fma.f64 lambda1 (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))) (fma.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2)))) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal 1/3 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (neg.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 (neg.f64 lambda2)) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 phi1)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 (neg.f64 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))))) (.f64 (cos.f64 phi2) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 (+.f64 lambda1 lambda2) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (/.f64 (fma.f64 lambda1 lambda2 (pow.f64 lambda2 #s(literal 2 binary64))) lambda1))
#s(approx (/ (pow lambda2 2) lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* (sin lambda1) (cos lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda2)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda2) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (.f64 (cos.f64 phi2) (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))) (.f64 (cos.f64 phi2) (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (cos.f64 lambda2) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (+.f64 (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 lambda1 (-.f64 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)))) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (sin.f64 lambda2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (fma.f64 lambda1 (fma.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 lambda2))) (.f64 (sin.f64 lambda2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ lambda1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda1 (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 lambda1 (-.f64 (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 lambda1 (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (+.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda1 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2)))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (- lambda1 lambda2) lambda1)
#s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1)
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (+ lambda1 (* 1/2 (PI))) lambda1)
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos lambda2) (sin lambda1)) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))
#s(approx (sin lambda1) (sin.f64 lambda1))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))
#s(approx (cos lambda1) (cos.f64 lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (.f64 lambda1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/.f64 (*.f64 lambda1 (cos.f64 phi2)) lambda2))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (*.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 phi2) lambda1) (/.f64 (cos.f64 phi2) lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* lambda2 (sin lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) #s(literal -1/6 binary64))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 lambda2))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (*.f64 #s(literal -1 binary64) (cos.f64 lambda2)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (neg (cos lambda1)) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 lambda2 lambda1)) #s(literal 1 binary64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (* -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (* lambda2 (cos lambda1)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (*.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))
#s(approx (+ (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))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (.f64 #s(literal -1/2 binary64) (cos.f64 lambda1))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (* -1 (/ (cos lambda1) lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (/ (cos lambda1) lambda2) (/.f64 (cos.f64 lambda1) lambda2))
#s(approx (* -1/2 (cos lambda1)) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))
#s(approx (* -1/2 (* lambda2 (cos lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (* -1 (sin lambda1)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (+.f64 (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1))))
#s(approx (+ lambda1 (* -1 lambda2)) lambda1)
#s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (/.f64 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))) lambda1)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (/.f64 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))) lambda1))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) lambda2 (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))) (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (*.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda1))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (+.f64 (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (/.f64 (sin.f64 (neg.f64 lambda2)) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (*.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (cos.f64 lambda2))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (fma.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (/.f64 (cos.f64 lambda2) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (cos.f64 lambda2))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) lambda1)
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) lambda1)
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) lambda1)
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (/.f64 lambda1 lambda2))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) lambda1)
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 lambda1 lambda2))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (*.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 lambda1 (+.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 lambda1 lambda2))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))))
#s(approx (+ lambda1 (* -1/2 lambda2)) lambda1)
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 lambda2 lambda1)) #s(literal 1/2 binary64))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (+ lambda2 (* -1/2 lambda1)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1/2 binary64))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (neg (- lambda1 lambda2)) (*.f64 #s(literal -1 binary64) lambda1))
#s(approx (neg (- lambda1 lambda2)) (*.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) lambda1)
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 lambda2 lambda1))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (/.f64 (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) (pow.f64 lambda1 #s(literal 3 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (pow.f64 lambda1 #s(literal 3 binary64)))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64)))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (pow.f64 lambda1 #s(literal 2 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda2 lambda1) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 lambda2))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) lambda2)
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)))
#s(approx (* (sin lambda1) (cos lambda2)) (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ lambda1 (/ (PI) 2)) lambda1)
#s(approx (+ lambda1 (/ (PI) 2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2)))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda1 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (/.f64 phi2 lambda1))) (/.f64 lambda2 lambda1))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1)))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (*.f64 lambda2 (cos.f64 phi2)) lambda1)))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 phi2) lambda2) (/.f64 (cos.f64 phi2) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda2) (cos.f64 phi2)) (/.f64 (.f64 (cos.f64 phi2) (sin.f64 lambda2)) lambda1)))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda1) (.f64 #s(literal 1/2 binary64) lambda2)) lambda1))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) #s(literal 1/6 binary64)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)) lambda1))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1/2 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) #s(literal 1/6 binary64))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda2) lambda1))) lambda1)))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1))))))
#s(approx (+ lambda1 (* -1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (/.f64 lambda2 lambda1)))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))) lambda1) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))) lambda1) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64)) lambda1) (.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (*.f64 #s(literal 1/2 binary64) lambda2)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (neg.f64 lambda2)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1)))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 (neg.f64 lambda2)) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1)) lambda1)))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (/.f64 (cos.f64 lambda2) lambda1)) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda2) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))) lambda1) (*.f64 #s(literal -1/6 binary64) (cos.f64 lambda2)))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (sin.f64 lambda2) lambda1) (*.f64 #s(literal 1/6 binary64) (cos.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1))))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)) #s(literal 1 binary64)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)) lambda1)) #s(literal 1/2 binary64))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (*.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))) lambda1))) lambda1)) #s(literal 1 binary64)))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))) lambda1)))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 (sin.f64 lambda2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (sin (+ lambda1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) lambda1))))
#s(approx (+ lambda1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda1) (+.f64 (/.f64 lambda2 lambda1) (/.f64 phi2 lambda1))) #s(literal 1 binary64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) lambda1)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (neg.f64 (+.f64 lambda2 (.f64 #s(literal -1 binary64) lambda1)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- lambda1 lambda2) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx lambda2 lambda2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1))))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))))
#s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (* (cos lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (cos lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (cos lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (cos lambda2) #s(literal 1 binary64))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos lambda2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (cos lambda1) (sin lambda2)) (*.f64 lambda2 (cos.f64 lambda1)))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))))))
#s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 lambda1)))))))))
#s(approx (sin lambda2) lambda2)
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin lambda2) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 lambda1)))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))))))
#s(approx (* (sin lambda1) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (*.f64 #s(literal 1/120 binary64) (sin.f64 lambda1)))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (sin (neg lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (neg lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (cos (neg lambda2)) #s(literal 1 binary64))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos (neg lambda2)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) lambda2 (*.f64 #s(literal 1/12 binary64) lambda1)))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/12 binary64) lambda1)))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) lambda1 (.f64 #s(literal 1/4320 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* lambda1 (cos (neg lambda2))) lambda1)
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos (neg lambda2))) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (cos.f64 phi2))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (cos.f64 phi2)))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))) lambda2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (cos.f64 lambda1))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 phi1)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 lambda2 (cos.f64 phi2))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (*.f64 lambda2 (cos.f64 phi2)))))))))
#s(approx (* (cos phi2) (sin lambda2)) (*.f64 lambda2 (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (cos phi2) (sin lambda2)) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (*.f64 lambda1 (cos.f64 phi2)))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))) (*.f64 lambda1 (cos.f64 phi2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 lambda1 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 phi2)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 phi2)))))))))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 phi2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/24 binary64) (cos.f64 phi2))))))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (sin.f64 lambda1))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (* 1/2 lambda2) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal 1/4 binary64) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/4 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (+.f64 lambda2 (*.f64 #s(literal -1/2 binary64) lambda1)))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/4 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) lambda2 (*.f64 #s(literal 1/4 binary64) lambda1)))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (*.f64 #s(literal -1/2 binary64) lambda1))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/4 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/4 binary64) lambda1)))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/4 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/48 binary64) lambda1 (.f64 #s(literal 1/1440 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) lambda1)
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (* (pow lambda1 2) (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2)))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))))) (*.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1)) (* 1/2 (sin lambda2))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) lambda1) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) #s(literal -1 binary64))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (/ (sin lambda2) lambda1) (/.f64 lambda2 lambda1))
#s(approx (/ (sin lambda2) lambda1) (*.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin lambda2) lambda1) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin lambda2) lambda1) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* 1/2 (sin lambda2)) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/12 binary64))))))
#s(approx (* 1/2 (sin lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/240 binary64) (.f64 #s(literal -1/10080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/12 binary64))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 lambda1)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2))) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (cos.f64 lambda1)))))) (cos.f64 lambda1)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2) (.f64 lambda2 (fma.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)))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ lambda2 (* 1/2 (PI))) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (-.f64 (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) #s(literal 1 binary64))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (sin lambda2))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (* lambda1 (sin lambda2)) (*.f64 lambda1 lambda2))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/6 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/120 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (* lambda1 (sin lambda2)) (.f64 lambda2 (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/120 binary64) lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal -1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (sin.f64 lambda1))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (sin.f64 lambda1))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (*.f64 #s(literal -1 binary64) (cos.f64 lambda1)))
#s(approx (* -1/2 lambda2) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (cos.f64 lambda1))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (cos.f64 lambda1))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))))
#s(approx (pow lambda2 2) (pow.f64 lambda2 #s(literal 2 binary64)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/.f64 (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1))) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1)))))) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 lambda1)))) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 lambda1)))) lambda2))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 lambda2 (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (cos.f64 lambda1))))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1))) (cos.f64 lambda1)))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 lambda1)))))
#s(approx (* -1 lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (sin.f64 lambda1))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (neg (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) lambda1)
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) lambda1)
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) #s(literal -1 binary64))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))))
#s(approx (* 1/6 lambda2) (*.f64 #s(literal 1/6 binary64) lambda2))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64)))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) lambda1)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (*.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) lambda1))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64))))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64)))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) #s(literal 1/12 binary64)))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (fma.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1)) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (.f64 #s(literal 1/12 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 3 binary64)))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (/.f64 #s(literal 1 binary64) lambda1))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 lambda2 (-.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 lambda2 (-.f64 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/12 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (/.f64 #s(literal -1 binary64) lambda1))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (-.f64 (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) (/.f64 #s(literal 1 binary64) lambda1)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) #s(literal -1 binary64))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (-.f64 (*.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda2 (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (-.f64 (.f64 lambda2 (fma.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda2 lambda1))) (/.f64 #s(literal 1 binary64) lambda1))) #s(literal 1 binary64)))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (/.f64 lambda2 lambda1))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (*.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (.f64 lambda2 (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))
#s(approx (/ (sin (neg lambda2)) lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (/ (sin (neg lambda2)) lambda1) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1)) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) lambda1))) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda1)))) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* -1/2 (sin (neg lambda2))) (*.f64 #s(literal 1/2 binary64) lambda2))
#s(approx (* -1/2 (sin (neg lambda2))) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/2 (sin (neg lambda2))) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/12 binary64))))))
#s(approx (* -1/2 (sin (neg lambda2))) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/240 binary64) (.f64 #s(literal -1/10080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/12 binary64))))))
#s(approx (* 1/6 (cos (neg lambda2))) #s(literal 1/6 binary64))
#s(approx (* 1/6 (cos (neg lambda2))) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (* 1/6 (cos (neg lambda2))) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/144 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/12 binary64)))))
#s(approx (* 1/6 (cos (neg lambda2))) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/144 binary64) (*.f64 #s(literal -1/4320 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/12 binary64)))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1)
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2) (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (+.f64 lambda1 (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) lambda1)
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (cos lambda2)) lambda1)
#s(approx (* lambda1 (cos lambda2)) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos lambda2)) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos lambda2)) (+.f64 lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) #s(literal 1 binary64)))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (fma.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/2 binary64))))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (*.f64 #s(literal 1/2 binary64) lambda1)))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (fma.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) (.f64 lambda1 lambda2) (.f64 #s(literal 1/12 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) lambda2)))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal 1/12 binary64) (*.f64 lambda1 lambda2))))))
#s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/12 binary64) lambda2 (*.f64 #s(literal 1/12 binary64) lambda1)))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) (*.f64 #s(literal -1/6 binary64) lambda1))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/12 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))) (*.f64 #s(literal 1/12 binary64) lambda1)))))
#s(approx (* -1/6 (* lambda1 (cos lambda2))) (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/12 binary64) lambda1 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) lambda1 (.f64 #s(literal 1/4320 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* -1/2 (sin lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2))
#s(approx (* -1/2 (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* -1/2 (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/12 binary64) (*.f64 #s(literal -1/240 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (* -1/2 (sin lambda2)) (.f64 lambda2 (-.f64 (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/12 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/10080 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) #s(literal 1/240 binary64))))) #s(literal 1/2 binary64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (+ 1 (* -1 (/ lambda1 lambda2))) (/.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)) lambda2))
#s(approx (- (/ lambda1 lambda2) 1) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (* -1 (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2)))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (* lambda1 (- (/ 1 lambda1) (/ 1 lambda2))) (/.f64 (+.f64 lambda2 (*.f64 #s(literal -1 binary64) lambda1)) lambda2))
#s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)) lambda2))
#s(approx (/ 1 lambda2) (/.f64 #s(literal 1 binary64) lambda2))
#s(approx (* lambda1 (- (/ 1 lambda2) (/ 1 lambda1))) (/.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)) lambda2))
#s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
#s(approx (/ (+ 1 (* -1 (/ lambda2 lambda1))) lambda2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (cos.f64 lambda1))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 lambda1)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (cos.f64 lambda1))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 lambda1)))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (sin.f64 phi2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (fma.f64 #s(literal -1 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 phi1)))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos lambda2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 #s(literal 1/4 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal 1/12 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 #s(literal 1/4 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))) (.f64 (sin.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (.f64 (cos.f64 lambda1) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) #s(literal 1 binary64))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (cos.f64 lambda1))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (fma.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (*.f64 lambda1 lambda2)))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))))
#s(approx (neg (- lambda1 lambda2)) (-.f64 lambda2 lambda1))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))) (fma.f64 #s(literal -1/6 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))))))) (fma.f64 #s(literal -1/2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 #s(literal -2 binary64) (/.f64 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 #s(literal -2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 phi2) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (sin.f64 phi1))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)))) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 lambda2 (fma.f64 lambda2 (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 #s(literal 2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 lambda1))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (fma.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)))) (.f64 (sin.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))))) (+.f64 (/.f64 (.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)) (fma.f64 #s(literal 2 binary64) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (sin.f64 lambda1))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))))) (/.f64 (.f64 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) #s(literal 2 binary64)))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))) (/.f64 (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (sin.f64 lambda1) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1)) (.f64 #s(literal -1/3 binary64) (.f64 (cos.f64 lambda1) (sin.f64 lambda1))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (pow.f64 (sin.f64 lambda1) #s(literal 2 binary64))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))) (fma.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 phi2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (*.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1))) (.f64 lambda2 (fma.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (.f64 (sin.f64 lambda1) (sin.f64 phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 lambda1))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1)))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (*.f64 lambda2 (sin.f64 lambda1)))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 lambda1)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))))
#s(approx (* -1 (pow lambda2 3)) (*.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (pow lambda2 3) (pow.f64 lambda2 #s(literal 3 binary64)))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda1 lambda2 (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (fma.f64 lambda2 (+.f64 lambda1 lambda2) (pow.f64 lambda1 #s(literal 2 binary64))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 lambda2 (+.f64 lambda1 lambda2)))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 lambda2 (+.f64 lambda1 lambda2)))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (*.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))
#s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)))))))
#s(approx (* (sin lambda1) (cos lambda2)) (+.f64 (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))) (.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)) (sin.f64 phi1))) (.f64 phi2 (cos.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))) (.f64 (sin.f64 lambda1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda1)))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 lambda1))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (fma.f64 lambda2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (sin.f64 lambda1))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (.f64 #s(literal 1/6 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2)) (.f64 lambda2 (+.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (sin.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 lambda2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda1)))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (*.f64 (cos.f64 phi2) (sin.f64 lambda1))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (cos.f64 phi2))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (cos.f64 phi2))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi2))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/24 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 phi2)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (cos.f64 phi2) (.f64 #s(literal 1/5040 binary64) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 lambda2 (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 lambda2 (fma.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 lambda2 (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))))) (.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 lambda1))) (.f64 (cos.f64 lambda1) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- lambda1 lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (cos lambda2) (cos.f64 lambda2))
#s(approx (sin lambda2) (sin.f64 lambda2))
#s(approx (sin (neg lambda2)) (sin.f64 (neg.f64 lambda2)))
#s(approx (cos (neg lambda2)) (cos.f64 (neg.f64 lambda2)))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin lambda2)) (*.f64 (cos.f64 phi2) (sin.f64 lambda2)))
#s(approx (* (cos lambda2) (cos phi2)) (*.f64 (cos.f64 lambda2) (cos.f64 phi2)))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda2 (-.f64 (.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2)) #s(literal 1 binary64))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (/.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))) lambda2))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (*.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1)))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2)))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (*.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 lambda2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (.f64 #s(literal 1/2 binary64) lambda1))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/6 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* 1/2 (sin lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2)
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (* 1/2 (PI))) lambda2)
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 lambda2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2))) (/.f64 lambda1 lambda2))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (sin.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2)))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (* (pow lambda2 2) (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda1) lambda2)))))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2)))
#s(approx (+ (* -1 (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2)) (* -1/2 (cos lambda1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (+.f64 (/.f64 (cos.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2)))
#s(approx (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (cos.f64 lambda1))))
#s(approx (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (/.f64 (sin.f64 lambda1) lambda2))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (sin.f64 lambda1))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda1) (/.f64 (sin.f64 lambda1) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (neg (sin lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda2)))
#s(approx (+ lambda1 (* -1 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) lambda1 (/.f64 lambda1 (pow.f64 lambda2 #s(literal 2 binary64)))) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/6 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2) (/.f64 lambda1 (pow.f64 lambda2 #s(literal 3 binary64))))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 3 binary64))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (*.f64 #s(literal 1/6 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))))
#s(approx (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1))
#s(approx (* -1/2 (sin (neg lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2))))
#s(approx (* 1/6 (cos (neg lambda2))) (*.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2))))
#s(approx (- (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (sin lambda2)) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2)))
#s(approx (* lambda1 (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (cos lambda2) (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))))) (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2))))))
#s(approx (* lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))
#s(approx (* -1/2 (sin lambda2)) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (*.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda2 #s(literal 2 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (+.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64))))
#s(approx (* lambda2 (+ lambda1 (* -1/2 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1/2 binary64))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (sin.f64 lambda1)))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (*.f64 lambda2 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda2 (+.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (neg (- lambda1 lambda2)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64))) (pow.f64 lambda2 #s(literal 2 binary64)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 lambda2 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) (pow.f64 lambda2 #s(literal 3 binary64))) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2) (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (*.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) #s(literal 1 binary64))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 lambda1 lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (* lambda1 (+ lambda2 (/ (pow lambda2 2) lambda1))) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (/.f64 lambda1 lambda2))))
#s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (*.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 lambda1 lambda2)) #s(literal 1 binary64))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (/.f64 phi2 lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) lambda2))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 lambda2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) lambda2) (+.f64 (/.f64 lambda1 lambda2) (/.f64 phi2 lambda2))) #s(literal 1 binary64))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (*.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (sin (- lambda1 lambda2)) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))
#s(approx (cos (- lambda1 lambda2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (sin (neg lambda2)) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (cos (neg lambda2)) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2)))))) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* -1/6 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* lambda1 (cos (neg lambda2))) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (neg lambda2) (cos lambda1)) (sin lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))))
#s(approx (* (pow lambda1 3) (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64))) lambda2) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (- (+ (* 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64))) #s(literal 1/6 binary64)) lambda2)) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) lambda1))))))
#s(approx (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))) lambda2) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2) (.f64 #s(literal -1/2 binary64) lambda1)))))
#s(approx (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/2 binary64)))))
#s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2)))) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)))) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* -1/2 (* lambda1 (cos (neg lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (+ lambda2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) lambda2)) #s(literal 1 binary64)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda1) lambda2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 (cos.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (* (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) lambda2) (sin lambda1)) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ (* (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)))))
#s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))
#s(approx (/ (+ (* -1 (sin lambda1)) (* -1 (/ (cos lambda1) lambda2))) lambda2) (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 (sin.f64 lambda1) (/.f64 (cos.f64 lambda1) lambda2)) lambda2)))
#s(approx (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2) (*.f64 #s(literal 1/2 binary64) (cos.f64 lambda1))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (sin.f64 lambda1)))))
#s(approx (+ lambda1 (* -1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ lambda1 (* lambda2 (- (* -1/2 (* lambda1 lambda2)) 1))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) lambda1))))
#s(approx (- (* -1/2 (* lambda1 lambda2)) 1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/6 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)) #s(literal 1/6 binary64)))))
#s(approx (+ lambda1 (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) lambda1)) lambda2)) #s(literal 1/6 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/6 binary64)))))
#s(approx (* lambda2 (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1/2 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)) #s(literal 1/6 binary64)))))
#s(approx (- (* lambda2 (+ (* -1/2 lambda1) (* 1/6 lambda2))) 1) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal 1/2 binary64) lambda1 (/.f64 #s(literal 1 binary64) lambda2)) lambda2)))))
#s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/6 binary64)))))
#s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) (+.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* -1 (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* (pow lambda1 3) (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (+ (* -1 (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1)) (* 1/6 (cos (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))) lambda1))
#s(approx (+ (* -1 (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1)) (* -1/2 (sin (neg lambda2)))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (/ (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) lambda1) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))) lambda1))
#s(approx (+ (* -1 (cos (neg lambda2))) (* -1 (/ (sin (neg lambda2)) lambda1))) (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))))
#s(approx (* -1 (/ (sin (neg lambda2)) lambda1)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (.f64 #s(literal -1 binary64) lambda2)) lambda1)))
#s(approx (/ (sin (neg lambda2)) lambda1) (/.f64 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)) lambda1))
#s(approx (* -1/2 (sin (neg lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* 1/6 (cos (neg lambda2))) (.f64 #s(literal 1/6 binary64) (cos.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) (.f64 lambda1 (+.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (* lambda1 (+ 1 (* -1 (/ lambda2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))
#s(approx (* lambda2 (- (/ lambda1 lambda2) 1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (* (- (/ lambda1 lambda2) 1) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (sin.f64 phi2) phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (+ 1 (* lambda2 (+ lambda1 (* -1/2 lambda2)))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (*.f64 #s(literal -1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)) lambda2)) #s(literal 1/2 binary64))))
#s(approx (+ lambda1 (* -1/2 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (*.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))))))
#s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2))))))
#s(approx (* lambda1 (+ lambda2 (* -1/2 lambda1))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal 1/2 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))))))
#s(approx (+ lambda2 (* -1/2 lambda1)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/2 binary64) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))))
#s(approx (neg (- lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 (cos.f64 phi1) (sin.f64 phi2) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (*.f64 #s(literal -1 binary64) lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (sin.f64 phi1)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 3) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (.f64 (sin.f64 phi1) (sin.f64 phi2)))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (cos (- lambda1 lambda2)) 2) (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (/.f64 (-.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 (cos.f64 phi1) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2)))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))) (.f64 (cos.f64 phi1) (sin.f64 phi2))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))
#s(approx (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (/.f64 (.f64 lambda1 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2) (fma.f64 #s(literal -1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda1 #s(literal 2 binary64)))) lambda2)) (.f64 #s(literal -1 binary64) lambda1)) lambda2))))))
#s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda2 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))))))))
#s(approx (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) lambda1 (*.f64 #s(literal -1 binary64) (/.f64 (pow.f64 lambda1 #s(literal 2 binary64)) lambda2))) lambda2)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)) (pow.f64 lambda1 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (sin (+ (- lambda1 lambda2) (/ (PI) 2))) (sin.f64 (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 lambda1 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda2))))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (*.f64 #s(literal -1 binary64) lambda2)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (.f64 #s(literal -1 binary64) lambda2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (cos phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (cos phi1) #s(literal 1 binary64))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx phi1 phi1)
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (sin phi1) phi1)
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (*.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/5040 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi2 (cos phi1)) phi2)
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
#s(approx (* phi2 (cos phi1)) (+.f64 phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2) (.f64 #s(literal 1/24 binary64) phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* -1 (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 phi1 (-.f64 (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 phi1 (-.f64 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ phi1 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (* 1/2 (PI))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (*.f64 phi1 (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))))))))))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (*.f64 phi1 (cos.f64 (neg.f64 phi2)))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (neg.f64 phi2))))))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (neg.f64 phi2))))))))))
#s(approx (- phi1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 phi2) (-.f64 phi1 phi2))
#s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (*.f64 phi1 (cos.f64 phi2))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 phi2)))))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 phi2)))))))))
#s(approx (+ phi1 phi2) phi2)
#s(approx (+ phi1 phi2) (+.f64 phi1 phi2))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (*.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (*.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 phi1 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))) (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2))))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (*.f64 phi1 (+.f64 (cos.f64 phi2) (cos.f64 (neg.f64 phi2)))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (*.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)))))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 phi2) (+.f64 (sin.f64 (neg.f64 phi2)) (.f64 phi1 (+.f64 (cos.f64 phi2) (+.f64 (cos.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 phi2))))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (neg (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (*.f64 #s(literal -1/6 binary64) (cos.f64 (-.f64 lambda1 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (sin.f64 phi2))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* -1/2 (* phi1 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
#s(approx (* phi1 phi2) (*.f64 phi1 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
#s(approx (* -1 (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (+.f64 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/120 binary64) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (* phi1 phi1) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (sin.f64 (+.f64 phi2 (PI.f64)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi2 (PI.f64))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (*.f64 phi1 (cos.f64 (+.f64 phi2 (PI.f64))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (+.f64 phi2 (PI.f64)))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (+.f64 (cos.f64 (+.f64 phi2 (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi2 (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (PI.f64)))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi2 (PI.f64)))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi1 (+.f64 phi2 (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (neg (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (fma.f64 (sin.f64 lambda1) (sin.f64 lambda2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (.f64 (cos.f64 lambda1) (cos.f64 phi2))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2)))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (.f64 phi1 (fma.f64 (cos.f64 lambda1) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 phi1 (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))) (.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))) (*.f64 #s(literal -1/6 binary64) (cos.f64 phi2)))) (cos.f64 phi2))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (sin.f64 phi2))
#s(approx (* -1 phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (* (cos phi2) (sin phi1)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (* (cos phi2) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* (cos phi2) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))))
#s(approx (* (cos phi2) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 phi1 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 phi2))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 #s(literal 1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2)) (.f64 #s(literal 1/6 binary64) (cos.f64 phi2)))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (cos.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (cos.f64 phi2) (.f64 #s(literal 1/5040 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 phi2))))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (sin.f64 phi2))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) phi2)
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (+.f64 phi2 (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (fma.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))) (.f64 #s(literal 1/120 binary64) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (sin.f64 phi2))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) phi1))
#s(approx (/ (sin phi2) phi1) (/.f64 (sin.f64 phi2) phi1))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64)))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (PI.f64)) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64)))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (PI.f64)) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64)))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (PI.f64))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64))))) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (PI.f64))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (PI.f64)) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64))))) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (PI.f64))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi1) (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi1 (PI))) (sin.f64 (PI.f64)))
#s(approx (sin (+ phi1 (PI))) (+.f64 (sin.f64 (PI.f64)) (*.f64 phi1 (cos.f64 (PI.f64)))))
#s(approx (sin (+ phi1 (PI))) (+.f64 (sin.f64 (PI.f64)) (.f64 phi1 (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1/2 binary64) (*.f64 phi1 (sin.f64 (PI.f64))))))))
#s(approx (sin (+ phi1 (PI))) (+.f64 (sin.f64 (PI.f64)) (.f64 phi1 (+.f64 (cos.f64 (PI.f64)) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64)) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (cos.f64 (PI.f64))))))))))
#s(approx (+ phi1 (PI)) (PI.f64))
#s(approx (+ phi1 (PI)) (+.f64 phi1 (PI.f64)))
#s(approx (* phi1 (cos phi2)) (*.f64 phi1 (cos.f64 phi2)))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) #s(literal 1 binary64))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))
#s(approx (pow phi1 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (/ 1 (pow phi1 2)) (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64)))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64))))))))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (PI.f64))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (PI.f64)) (.f64 #s(literal -1 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (PI.f64)) (.f64 #s(literal 1/6 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (PI.f64)))))))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (+.f64 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi1 (/ (PI) 2)) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -2/45 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 #s(literal -1 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (*.f64 #s(literal 1/3 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (sin.f64 phi2))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)))))))
#s(approx (* (sin phi2) (cos phi1)) (+.f64 (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi2))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal 2/45 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal -1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (neg.f64 lambda2)))))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (neg.f64 lambda2))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (neg lambda2)) (sin phi1)) (.f64 phi1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (cos.f64 (neg.f64 lambda2))) (*.f64 #s(literal 1/120 binary64) (cos.f64 (neg.f64 lambda2))))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 phi1 (-.f64 (.f64 #s(literal 7/8 binary64) (.f64 phi1 (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 #s(literal -3/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))) (*.f64 #s(literal 7/8 binary64) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64)))))) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))) (.f64 #s(literal 13/120 binary64) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (*.f64 (pow.f64 phi1 #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 3) (pow (sin phi1) 3)) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)))))
#s(approx (pow (sin phi1) 3) (pow.f64 phi1 #s(literal 3 binary64)))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 13/120 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))))
#s(approx (pow (sin phi1) 3) (.f64 (pow.f64 phi1 #s(literal 3 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 13/120 binary64) (.f64 #s(literal -41/3024 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi2)))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (* (pow (cos (- lambda1 lambda2)) 2) (pow (sin phi1) 2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))))
#s(approx (pow (sin phi1) 2) (pow.f64 phi1 #s(literal 2 binary64)))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/3 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 2/45 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/3 binary64))))))
#s(approx (pow (sin phi1) 2) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (+.f64 #s(literal 2/45 binary64) (.f64 #s(literal -1/315 binary64) (pow.f64 phi1 #s(literal 2 binary64))))) #s(literal 1/3 binary64))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (sin.f64 phi2))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 phi1 (-.f64 (fma.f64 #s(literal -3/2 binary64) (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 3 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (.f64 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (/.f64 (.f64 (cos.f64 phi2) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal -3/2 binary64) (sin.f64 phi2)) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2))))))) (sin.f64 phi2)))))))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi2) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (sin.f64 phi2)) (/.f64 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (sin.f64 phi2)))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1 binary64) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64)) (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (.f64 phi1 (fma.f64 phi1 (fma.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/3 binary64) (.f64 phi1 (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/24 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal 1/12 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/144 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/240 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (fma.f64 #s(literal -1/720 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal -1/5040 binary64) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 phi1 (fma.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/120 binary64) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (sin.f64 phi2))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2)))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (.f64 #s(literal 1/6 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/6 binary64) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1/120 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/5040 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) phi2)
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 phi1 (fma.f64 #s(literal -1/2 binary64) phi2 (.f64 #s(literal 1/6 binary64) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (cos phi1) (cos.f64 phi1))
#s(approx (sin phi1) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* phi2 (cos phi1)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ phi1 (* 1/2 (PI))) phi1)
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (-.f64 phi1 phi2)))
#s(approx (- phi1 phi2) phi1)
#s(approx (- phi1 phi2) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (+.f64 phi1 phi2)))
#s(approx (+ phi1 phi2) phi1)
#s(approx (+ phi1 phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 phi2 phi1))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi1)
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (sin.f64 phi2))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi2) (/.f64 (sin.f64 phi2) (pow.f64 phi1 #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (+ (* (* phi1 phi1) -1/2) 1) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi1 (+.f64 phi2 (PI.f64)))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) phi1)
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 phi2 phi1) (/.f64 (PI.f64) phi1)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (* (cos phi2) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1)))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/2 binary64) phi2 (/.f64 phi2 (pow.f64 phi1 #s(literal 2 binary64)))) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2)))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1) (.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal -1 binary64) phi1))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 phi1 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64))))
#s(approx (sin (+ phi1 (PI))) (sin.f64 (+.f64 phi1 (PI.f64))))
#s(approx (+ phi1 (PI)) phi1)
#s(approx (+ phi1 (PI)) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (/.f64 (PI.f64) phi1))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))
#s(approx (* (pow phi1 2) (- (/ 1 (pow phi1 2)) 1/2)) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (/ 1 (pow phi1 2)) 1/2) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 phi1 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1))) (/.f64 phi2 phi1))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi1)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi1 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)))))
#s(approx (+ phi1 (/ (PI) 2)) phi1)
#s(approx (+ phi1 (/ (PI) 2)) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 2 binary64))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 (cos.f64 phi1) (sin.f64 phi2)))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi2) #s(literal 3 binary64))))
#s(approx (pow (sin phi1) 3) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))
#s(approx (pow (sin phi1) 2) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (-.f64 (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 (+.f64 phi2 (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (/.f64 phi2 phi1) #s(literal 1 binary64)))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi2 phi1)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 (neg.f64 (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (sin.f64 (-.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (neg.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi1) (/.f64 phi2 phi1)) #s(literal 1 binary64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))) phi1) (*.f64 #s(literal -1/2 binary64) (sin.f64 phi2)))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi2) (/.f64 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) phi1)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal 1/2 binary64) phi2 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (sin (+ phi1 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 phi2 (PI.f64)) (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (PI.f64)) phi1)) #s(literal 1 binary64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (+.f64 phi2 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 phi2 phi1))) phi1) (*.f64 #s(literal -1/2 binary64) phi2))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (/.f64 (sin.f64 phi2) phi1) (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1/2 (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (PI.f64) (.f64 #s(literal -1 binary64) phi1)))))))
#s(approx (* (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI)))) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (PI.f64) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (* 1/2 (PI)) phi1)) (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1))))))
#s(approx (sin (+ phi1 (PI))) (sin.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ phi1 (PI)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (fma.f64 #s(literal -1 binary64) phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (PI.f64) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi1))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi2 (.f64 #s(literal -1 binary64) phi1)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2) phi1)) #s(literal 1 binary64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi1))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi1)) #s(literal 1 binary64)))))
#s(approx (+ phi1 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi1)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (-.f64 (.f64 (sin.f64 phi2) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi1)))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (- (* 1/2 (PI)) phi2) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx phi2 phi2)
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi1) (sin phi2)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (sin phi2) phi2)
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/120 binary64) (.f64 #s(literal -1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/6 binary64))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (cos phi2) #s(literal 1 binary64))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (sin.f64 (PI.f64)))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (PI.f64))))))))))
#s(approx (* (sin phi2) (sin (PI))) (*.f64 phi2 (sin.f64 (PI.f64))))
#s(approx (* (sin phi2) (sin (PI))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (PI.f64)))))))
#s(approx (* (sin phi2) (sin (PI))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (PI.f64)) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (PI.f64)))))))))
#s(approx (* (sin phi2) (sin (PI))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (PI.f64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (PI.f64))) (*.f64 #s(literal 1/120 binary64) (sin.f64 (PI.f64))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (sin phi1) (cos phi2)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))))
#s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/720 binary64) (sin.f64 lambda2)))))))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (*.f64 #s(literal 1/24 binary64) lambda1)))))))))
#s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (+.f64 lambda1 (fma.f64 #s(literal -1 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (fma.f64 #s(literal 1/2 binary64) lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) lambda2 (fma.f64 #s(literal 1/24 binary64) lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) lambda1 (.f64 #s(literal 1/720 binary64) lambda2))))))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (fma.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2)))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (fma.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/24 binary64))) (.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))))))))
#s(approx (* lambda2 (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2))) (fma.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 lambda2 (+.f64 #s(literal 1/2 binary64) (.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 lambda2 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/720 binary64) (.f64 #s(literal -1/720 binary64) (/.f64 lambda1 lambda2)))) (.f64 lambda2 (-.f64 (*.f64 #s(literal 1/24 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/24 binary64)))))))))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2))) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 lambda1 lambda2)) #s(literal 1/24 binary64))))) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (+ (* -1 (cos phi2)) (/ (* lambda1 (cos phi2)) lambda2)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/2 binary64) (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 lambda1 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/720 binary64) (*.f64 #s(literal -1/720 binary64) (/.f64 lambda1 lambda2))))) #s(literal 1/24 binary64))))) (/.f64 lambda1 lambda2)) #s(literal 1 binary64)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) (/.f64 lambda1 lambda2))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) (fma.f64 #s(literal -1/2 binary64) (/.f64 (*.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) lambda2) (/.f64 lambda1 lambda2)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2) (.f64 #s(literal 1/24 binary64) (/.f64 (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) lambda2))) (/.f64 lambda1 lambda2)))
#s(approx (/ (* lambda1 (cos phi2)) lambda2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (/.f64 lambda1 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (/.f64 (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) lambda2) (*.f64 #s(literal 1/24 binary64) (/.f64 lambda1 lambda2))))) (/.f64 lambda1 lambda2)))
#s(approx (* lambda1 (cos phi2)) lambda1)
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* lambda1 (cos phi2)) (+.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) lambda1)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1))))))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (sin.f64 phi1))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 phi1) (*.f64 #s(literal -1 binary64) (cos.f64 phi1)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1)))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1 binary64) (*.f64 phi2 (sin.f64 phi1))))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))))))))
#s(approx (sin (- phi1 phi2)) (sin.f64 phi1))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 phi1)))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))))))
#s(approx (sin (- phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))))))
#s(approx (- phi1 phi2) (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (sin (+ phi1 phi2)) (sin.f64 phi1))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 phi1)))))))
#s(approx (sin (+ phi1 phi2)) (+.f64 (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (fma.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (fma.f64 #s(literal 2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (.f64 (cos.f64 lambda1) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))) (.f64 (cos.f64 lambda1) (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (*.f64 #s(literal 2 binary64) (sin.f64 phi1)))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 #s(literal -1 binary64) (*.f64 phi2 (sin.f64 phi1))))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (fma.f64 #s(literal 2 binary64) (sin.f64 phi1) (.f64 phi2 (+.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))))))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))
#s(approx (+ (sin phi2) (sin (neg phi2))) #s(literal 0 binary64))
#s(approx (sin (neg phi2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1 binary64))))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (*.f64 #s(literal -1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1 binary64))))
#s(approx (sin (neg phi2)) (.f64 phi2 (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/5040 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/120 binary64))))) #s(literal 1 binary64))))
#s(approx (neg phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ phi2 (* 1/2 (PI))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (neg.f64 lambda2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))))) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))))) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))))
#s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (sin.f64 lambda2) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 lambda2) (fma.f64 #s(literal 1/24 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (cos.f64 lambda2)) (*.f64 #s(literal 1/720 binary64) (sin.f64 lambda2)))))))))))))
#s(approx (* (cos phi2) (sin lambda2)) (sin.f64 lambda2))
#s(approx (* (cos phi2) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)))))
#s(approx (* (cos phi2) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)))))))
#s(approx (* (cos phi2) (sin lambda2)) (+.f64 (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (sin.f64 lambda2))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (*.f64 lambda1 (cos.f64 lambda2)))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2))) (*.f64 lambda1 (cos.f64 lambda2))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (.f64 lambda1 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2))))))))
#s(approx (* lambda1 (* (cos lambda2) (cos phi2))) (fma.f64 lambda1 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 lambda1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (*.f64 lambda1 (cos.f64 lambda2)))))))))
#s(approx (* (cos lambda2) (cos phi2)) (cos.f64 lambda2))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)))))))
#s(approx (* (cos lambda2) (cos phi2)) (+.f64 (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda2))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) phi1) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/2 binary64) (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 phi2 (-.f64 (.f64 #s(literal 1/12 binary64) (.f64 phi1 phi2)) (*.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2))))))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (cos lambda1)) (* (sin phi1) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
#s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) #s(literal 1 binary64))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* (* phi2 phi2) 1/24) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* phi2 phi2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))))
#s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (fma.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (*.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64)))))) (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (+.f64 phi1 (PI.f64)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (-.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) phi1))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (+.f64 phi1 (PI.f64))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (*.f64 phi2 (cos.f64 (+.f64 phi1 (PI.f64))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/2 binary64) (*.f64 phi2 (sin.f64 (+.f64 phi1 (PI.f64)))))))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (+.f64 (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (+.f64 phi1 (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (+.f64 phi1 (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (PI.f64)))))))))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (+.f64 phi1 (PI.f64)))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))))
#s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (fma.f64 (cos.f64 lambda1) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 lambda1) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 lambda1) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))))
#s(approx (* (cos lambda1) (cos phi2)) (cos.f64 lambda1))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)))))))
#s(approx (* (cos lambda1) (cos phi2)) (+.f64 (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 lambda1)) (.f64 #s(literal 1/24 binary64) (cos.f64 lambda1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (+.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1))))) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (*.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))
#s(approx (neg (* (sin phi1) (cos phi2))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (neg (* (sin phi1) (cos phi2))) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1)))) (.f64 #s(literal -1/2 binary64) (sin.f64 phi1)))) (sin.f64 phi1)))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos phi2)) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))
#s(approx (* (cos phi2) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* (cos phi2) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))))
#s(approx (* (cos phi2) (sin phi1)) (+.f64 (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (sin.f64 phi1))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (*.f64 #s(literal -1 binary64) (sin.f64 phi1)))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)) (*.f64 #s(literal 1/2 binary64) (sin.f64 phi1))))))
#s(approx (* -1 (* (cos phi2) (sin phi1))) (fma.f64 #s(literal -1 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (sin.f64 phi1) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 phi1)))))))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) phi2)
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/6 (pow phi2 2)) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (pow phi2 2) (pow.f64 phi2 #s(literal 2 binary64)))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) #s(literal 1 binary64))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (pow phi2 4) (pow.f64 phi2 #s(literal 4 binary64)))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (/.f64 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (/ 1 (pow phi2 4)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* 1/2 (/ 1 (pow phi2 2))) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (/ 1 (pow phi2 2)) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) #s(literal 1 binary64))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (* 1/24 (pow phi2 2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) #s(literal 1 binary64))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) #s(literal -1/2 binary64))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (-.f64 (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) #s(literal 1/24 binary64))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) (+.f64 #s(literal 1/24 binary64) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/720 (pow phi2 2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) #s(literal 1 binary64))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (.f64 phi1 (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))) (fma.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal 1/24 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2)))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (+.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/24 binary64) (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (*.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (cos.f64 phi1) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (-.f64 (+.f64 (cos.f64 phi1) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (cos.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (cos (- lambda1 lambda2))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (sin phi1) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi1))) (.f64 (sin.f64 phi1) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) #s(literal 1 binary64))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (* -1/2 (pow phi2 2)) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) phi2)
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) #s(literal 1 binary64))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) #s(literal -1/6 binary64))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64)))
#s(approx (* 1/120 (pow phi2 2)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 phi1 (*.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2)))))))))
#s(approx (* phi1 (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1))) (fma.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) phi2 (.f64 #s(literal 1/2 binary64) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (*.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (/.f64 phi2 phi1)))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 #s(literal 1 binary64) phi1)))))
#s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (fma.f64 #s(literal -1 binary64) (cos.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (/.f64 phi2 phi1) (.f64 #s(literal 1/2 binary64) (cos.f64 (-.f64 lambda1 lambda2)))) (/.f64 #s(literal 1 binary64) phi1)))))
#s(approx (/ (sin phi2) phi1) (/.f64 phi2 phi1))
#s(approx (/ (sin phi2) phi1) (*.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (/ (sin phi2) phi1) (.f64 phi2 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1)) (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) phi1))) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (/ (sin phi2) phi1) (.f64 phi2 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (/.f64 (pow.f64 phi2 #s(literal 2 binary64)) phi1) (.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) phi1)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) phi1))) (/.f64 #s(literal 1 binary64) phi1))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* phi1 (cos phi2)) phi1)
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 #s(literal 1/24 binary64) (*.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))))))))
#s(approx (* phi1 (cos phi2)) (+.f64 phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) phi1 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 (pow.f64 phi2 #s(literal 2 binary64))) (.f64 #s(literal 1/24 binary64) phi1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal 1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/5040 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1/120 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/6 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* -1 phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (+.f64 (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (+.f64 phi1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 phi1) (.f64 #s(literal 1/6 binary64) (cos.f64 phi1)))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 2) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 #s(literal 2/45 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/3 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/315 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 2/45 binary64) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (sin phi2) (cos phi1)) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/6 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 #s(literal 1/120 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1))))))))
#s(approx (* (sin phi2) (cos phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/6 binary64) (cos.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/5040 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (cos.f64 phi1)) (*.f64 #s(literal 1/120 binary64) (cos.f64 phi1)))))))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -2/45 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 #s(literal 1/3 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (fma.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (cos.f64 phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))) (fma.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))))
#s(approx (* (cos phi2) (* (cos (neg lambda2)) (sin phi1))) (fma.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/24 binary64) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))) (*.f64 #s(literal -1 binary64) (cos.f64 phi1))))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 phi2 (fma.f64 #s(literal -7/8 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 #s(literal 13/120 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (sin phi2) (cos phi1)) 3) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -41/3024 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 13/120 binary64) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))) (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (fma.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -3/2 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -61/240 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))) (.f64 #s(literal 7/8 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal -1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (/.f64 (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (/ (- (pow (* (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (-.f64 (/.f64 (pow.f64 (cos.f64 phi1) #s(literal 3 binary64)) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (+.f64 (/.f64 (.f64 (cos.f64 phi1) (.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (/.f64 (.f64 (cos.f64 phi1) (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (-.f64 (.f64 #s(literal 3/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1))))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (sin.f64 phi1)))))))) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (/.f64 (.f64 (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)) (pow.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) #s(literal 2 binary64))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (sin.f64 phi1)))))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (pow.f64 (cos.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))) (.f64 phi2 (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))) (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/12 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))))))
#s(approx (* (* (sin phi2) (cos phi1)) (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2)))) (.f64 phi2 (fma.f64 (cos.f64 phi1) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 (cos.f64 phi1) (fma.f64 #s(literal 1/120 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/12 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 phi1) (fma.f64 #s(literal -1/144 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/240 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (fma.f64 #s(literal -1/720 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/5040 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
#s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (* (sin phi1) (cos phi2))) (fma.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))) (.f64 #s(literal 1/24 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (cos.f64 phi1))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))
#s(approx (+ (* (sin phi2) (cos phi1)) (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 phi2 (fma.f64 #s(literal -1/6 binary64) (.f64 phi2 (cos.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
#s(approx (* -1 (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/24 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) (.f64 #s(literal 1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal 1/2 binary64) (PI.f64)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (sin.f64 (PI.f64)) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (sin.f64 (PI.f64)))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (+.f64 (sin.f64 (PI.f64)) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (PI.f64))))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (sin.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/24 binary64) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))))))))
#s(approx (* (sin (/ (- (pow lambda1 3) (pow lambda2 3)) (+ (* lambda1 lambda1) (+ (* lambda2 lambda2) (* lambda1 lambda2))))) (cos phi2)) (+.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64))))))) (.f64 #s(literal 1/24 binary64) (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda2 (+.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (pow.f64 lambda2 #s(literal 2 binary64)))))))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2))))) (fma.f64 phi2 (fma.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))) (.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 lambda2) (sin.f64 lambda1))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/24 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (sin (+ lambda1 (/ (PI) 2))) (sin lambda2))) (cos phi2)) (-.f64 (fma.f64 (cos.f64 lambda2) (sin.f64 lambda1) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/24 binary64) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))))) (.f64 (sin.f64 lambda2) (sin.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))) (.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (+.f64 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/6 binary64) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))) (.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 lambda1 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 #s(literal 1/2 binary64) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (fma.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal 1/2 binary64) (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))))))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (-.f64 lambda1 lambda2))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (+.f64 (sin.f64 (-.f64 lambda1 lambda2)) (.f64 phi2 (-.f64 (.f64 phi2 (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/6 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal 1/6 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (fma.f64 #s(literal -1/2 binary64) (cos.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (fma.f64 #s(literal -1 binary64) (sin.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (-.f64 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (neg.f64 lambda2))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (sin.f64 (neg.f64 lambda2)))
#s(approx (* (cos phi2) (sin (neg lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal 1/24 binary64) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))))))))
#s(approx (* (cos phi2) (sin (neg lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (fma.f64 #s(literal -1/720 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (sin.f64 (neg.f64 lambda2))) (.f64 #s(literal 1/24 binary64) (sin.f64 (neg.f64 lambda2)))))))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 #s(literal -1 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1/2 binary64) (.f64 phi2 (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (fma.f64 phi2 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (+.f64 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (-.f64 (.f64 phi2 (fma.f64 #s(literal -1/2 binary64) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal 1/6 binary64) (.f64 phi2 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (- (* 1/2 (PI)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (sin phi2) (sin.f64 phi2))
#s(approx (cos phi2) (cos.f64 phi2))
#s(approx (+ (* (cos phi2) (sin (* 1/2 (PI)))) (* (sin phi2) (sin (PI)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))
#s(approx (* (sin phi2) (sin (PI))) (*.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (- phi1 phi2) (*.f64 phi2 (-.f64 (/.f64 phi1 phi2) #s(literal 1 binary64))))
#s(approx (+ phi1 phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (/.f64 phi1 phi2))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2)))))
#s(approx (+ (sin phi2) (sin (neg phi2))) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))
#s(approx (sin (neg phi2)) (sin.f64 (neg.f64 phi2)))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 phi2 (-.f64 (/.f64 phi1 phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (+ phi2 (/ (PI) 2)) phi2)
#s(approx (+ phi2 (/ (PI) 2)) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2)
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (+ phi2 (* 1/2 (PI))) phi2)
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2) (.f64 #s(literal -1/2 binary64) phi1))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ (* (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* (* phi2 phi2) 1/24) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2))) (/.f64 phi1 phi2))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) phi2)
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (+.f64 (/.f64 phi1 phi2) (/.f64 (PI.f64) phi2)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2)
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (cos.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64))) (sin.f64 phi2))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/6 (pow phi2 2))) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (pow phi2 4) (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2))))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) #s(literal 1/24 binary64))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (-.f64 #s(literal 1/24 binary64) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) (* 1/2 (/ 1 (pow phi2 2)))) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (*.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) #s(literal 1/24 binary64))
#s(approx (+ 1/24 (/ 1 (pow phi2 4))) (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) (*.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* 1/24 (pow phi2 2)) 1/2) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/24 binary64) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (*.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (fma.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 6 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (* (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2)) (.f64 (pow.f64 phi2 #s(literal 6 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/720 binary64) (/.f64 #s(literal 1/2 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) (*.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1/24 (* -1/720 (pow phi2 2))) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/720 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ (* (* phi2 phi2) -1/2) 1) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (/.f64 (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (+ 1 (* -1/2 (pow phi2 2))) (*.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6))) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 4 binary64))))
#s(approx (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))))
#s(approx (- (* 1/120 (pow phi2 2)) 1/6) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 #s(literal 1/120 binary64) (.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)) #s(literal 1 binary64))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) phi2)
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (*.f64 phi2 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 phi1 phi2)))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))
#s(approx (+ (neg phi2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 phi2 (-.f64 (.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64))))
#s(approx (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2)))) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64)))))
#s(approx (* (cos phi2) (sin (/ (PI) 2))) (.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (*.f64 phi2 (cos.f64 phi1)))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 phi2 (+.f64 (cos.f64 phi1) (.f64 #s(literal -1 binary64) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) phi2)))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 #s(literal -1 binary64) phi2))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (/.f64 lambda1 phi2) (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda2 phi2))))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2)
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (*.f64 phi2 (-.f64 (+.f64 #s(literal 1 binary64) (fma.f64 #s(literal 1/2 binary64) (/.f64 (PI.f64) phi2) (/.f64 lambda1 phi2))) (/.f64 lambda2 phi2))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (- (* 1/2 (PI)) phi2))) (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (- (* 1/2 (PI)) phi2)) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- (* 1/2 (PI)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (/.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (- phi1 phi2)) (sin.f64 (+.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (- phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2))))))
#s(approx (sin (+ phi1 phi2)) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 phi1 phi2)) #s(literal 1 binary64)))))
#s(approx (* 1/2 (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (cos lambda1) (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2)))) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (+ (sin (+ phi1 phi2)) (sin (- phi1 phi2))) (+.f64 (sin.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2))) (sin.f64 (-.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) (.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (sin phi2) (sin (neg phi2))) (+.f64 (sin.f64 phi2) (sin.f64 (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (sin (neg phi2)) (sin.f64 (*.f64 #s(literal -1 binary64) phi2)))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos (+ phi1 (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)) (.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (- phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (cos (+ phi1 (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (+ phi2 (* 1/2 (PI))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (sin (+ phi2 (* 1/2 (PI)))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) phi1 (/.f64 (cos.f64 (-.f64 lambda1 lambda2)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (- (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1) phi2)) #s(literal 1 binary64)))))
#s(approx (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2))) (sin.f64 (-.f64 (+.f64 phi1 (PI.f64)) (*.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (PI.f64)) phi2)) #s(literal 1 binary64)))))
#s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (+.f64 phi1 (.f64 #s(literal -1 binary64) phi2)))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (+ (+ phi2 (/ (PI) 2)) phi1)) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (sin (+ phi2 (/ (PI) 2))) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))))
#s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 3 binary64)) (-.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (*.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1 binary64)))))
#s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (fma.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (/.f64 (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2)) #s(literal 1 binary64)))))
#s(approx (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal 1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)) (/.f64 (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))) phi2)))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) #s(literal 1/120 binary64)))))
#s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 phi2 #s(literal 5 binary64)) (-.f64 (*.f64 #s(literal 1/6 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64)))) (+.f64 #s(literal 1/120 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64))))))))
#s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)) phi2)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (cos phi2)) (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
#s(approx (- (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
#s(approx (/ (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos (+ (+ phi1 (/ (PI) 2)) phi2))) (-.f64 (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (- (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (+.f64 phi1 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2))))))
#s(approx (cos (+ (+ phi1 (/ (PI) 2)) phi2)) (cos.f64 (-.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (+ (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))))
#s(approx (sin (+ (neg phi2) (/ (PI) 2))) (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))
#s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (/.f64 (PI.f64) phi2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (sin.f64 (fma.f64 #s(literal -1 binary64) phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 phi2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi1) (/.f64 (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))) phi2)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))))) (-.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))
#s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (-.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) phi2))))))
#s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) (+.f64 lambda2 (.f64 #s(literal -1 binary64) phi2)))))
#s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) (.f64 phi2 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2) phi2)) #s(literal 1 binary64)))))
#s(approx (atan2 (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
#s(approx (/ (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))))
#s(approx (- (cos (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2)))) (-.f64 (+.f64 (cos.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal -1 binary64) phi2)) (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))))
#s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi2) (sin.f64 (-.f64 lambda1 lambda2)))))
#s(approx (- (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (* (cos phi2) (sin (neg lambda2)))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2)))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))
#s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (+ phi2 (* 1/2 (PI)))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))
#s(approx (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (*.f64 #s(literal -1 binary64) phi2)))))
#s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) (.f64 #s(literal -1 binary64) phi2))))

eval4.0s (7.4%)

Memory: -82.4MiB live, 6 935.6MiB allocated; 2.0s collecting garbage
Compiler: Compiled 1 348 360 to 54 129 computations (96% saved)

prune2.7s (4.9%)

Memory

56.8MiB live, 3 990.5MiB allocated; 554ms collecting garbage

Pruning

274 alts after pruning (190 fresh and 84 done)

	Pruned	Kept	Total
New	21 400	190	21 590
Fresh	0	0	0
Picked	153	76	229
Done	0	8	8
Total	21 553	274	21 827

Accuracy

99.9%

Counts

21 827 → 274

Alt Table

Click to see full alt table

Status	Accuracy	Program
	26.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	22.6%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	24.8%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	15.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	18.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	14.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	13.6%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	14.2%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	19.5%	(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	10.8%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	15.4%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
	14.5%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	14.9%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	14.8%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	14.1%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	15.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	15.0%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	18.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	13.3%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
	10.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	12.7%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	10.8%	(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	56.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
✓	99.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
✓	74.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
✓	80.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
✓	56.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
✓	71.4%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
	70.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
	71.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
✓	56.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
✓	71.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
✓	72.0%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
	66.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	56.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
✓	80.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	64.7%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
	58.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
✓	56.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	32.1%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
	42.8%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
	43.6%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
✓	56.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
✓	54.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	43.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
	41.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
	61.2%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
	46.5%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	46.9%	(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
✓	36.8%	(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	65.5%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
	45.3%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	49.3%	(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
✓	24.4%	(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
	17.2%	(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
✓	40.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
	11.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
✓	9.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	15.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
✓	69.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
	61.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
✓	68.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
	38.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
✓	47.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
✓	48.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
	37.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
✓	55.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
✓	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
✓	59.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
	31.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
✓	43.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
✓	46.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
	46.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
	40.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
	29.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
✓	43.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
✓	39.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
	53.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
✓	53.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
✓	45.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
✓	44.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
	45.0%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
✓	45.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
	53.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
	53.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
	28.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
	29.5%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
	26.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
	27.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
✓	26.9%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
✓	27.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
✓	27.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
✓	39.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
✓	43.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
	38.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
✓	38.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
✓	29.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
✓	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
	24.4%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
	38.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
	43.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	43.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	27.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
	25.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
✓	27.1%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
	27.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
	8.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	6.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
	6.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
	13.2%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
	24.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
	27.8%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
	35.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
	36.3%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	27.6%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
	24.7%	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
	51.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
	34.2%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	47.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
✓	52.7%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
✓	24.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	22.4%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	24.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	23.3%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
	27.9%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	24.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	41.1%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
✓	41.6%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
	36.5%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
	27.8%	(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	34.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	34.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	33.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	36.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	35.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	61.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
✓	38.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
✓	45.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
✓	28.0%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	20.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
✓	48.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
✓	38.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	36.3%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
✓	40.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
	34.9%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
✓	30.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	26.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
✓	31.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
	26.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
	23.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	21.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	18.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	26.4%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
✓	25.9%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	25.9%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	29.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
	22.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
✓	18.7%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	22.6%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
	24.6%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
	22.1%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
	17.5%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
	20.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
	18.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
	18.8%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
✓	29.2%	(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
✓	58.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
✓	61.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
✓	60.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
	39.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
✓	40.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
	39.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
✓	45.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
✓	43.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
✓	36.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
	22.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	16.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	27.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
	27.0%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
	38.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	38.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	34.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	27.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
✓	36.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
✓	32.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
	32.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
✓	32.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
	29.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
✓	30.7%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
✓	34.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
	26.2%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
✓	38.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
	29.6%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
	27.4%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	26.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	39.1%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
	35.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	35.9%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	41.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	41.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
	18.3%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
	23.8%	(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
✓	32.5%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	44.6%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	44.9%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	31.3%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	48.7%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	30.2%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	47.7%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	26.9%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	22.0%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	22.7%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	29.8%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
	25.9%	(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	24.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
	9.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	18.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
	31.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	34.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	29.2%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
✓	44.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
	34.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
	43.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
✓	44.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
	39.8%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
	36.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
	29.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
	47.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	47.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
	43.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
	25.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
✓	41.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
	40.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	28.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
✓	45.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	40.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
	31.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
	35.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
	40.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
✓	28.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
✓	26.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
	27.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
✓	25.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
	35.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
	24.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
	30.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
	24.4%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
	41.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	25.5%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
	34.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
	31.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	26.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	21.1%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
✓	33.0%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
	27.7%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
	33.3%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	27.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
	32.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	29.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
	20.6%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
	23.9%	(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
✓	99.7%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	82.4%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	57.3%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
	56.3%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
	58.7%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	81.4%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	59.7%	#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
	69.4%	#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
	43.2%	#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
	28.7%	#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))

Compiler

Compiled 44 558 to 12 778 computations (71.3% saved)

regimes1.2s (2.2%)

Memory

16.7MiB live, 1 670.4MiB allocated; 319ms collecting garbage

Counts

610 → 1

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (.f64 (pow.f64 (cos.f64 lambda1) #s(literal 2 binary64)) (.f64 (pow.f64 (cos.f64 phi2) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64)))))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 3 binary64))) (+.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 2 binary64)) (+.f64 (pow.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

Calls

6 calls:

236.0ms	lambda1
222.0ms	phi1
180.0ms	lambda2
172.0ms	(-.f64 lambda1 lambda2)
164.0ms	phi2

Results

Accuracy	Segments	Branch
99.7%	1	`(-.f64 lambda1 lambda2)`
99.7%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
99.7%	1	`lambda1`
99.7%	1	`lambda2`
99.7%	1	`phi1`
99.7%	1	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes1.8s (3.3%)

Memory

-262.7MiB live, 1 777.8MiB allocated; 1.4s collecting garbage

Counts

597 → 1

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) #s(approx (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))

Outputs

#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (*.f64 (cos.f64 phi2) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (cos.f64 phi2) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))

Calls

6 calls:

797.0ms	(-.f64 lambda1 lambda2)
215.0ms	lambda1
184.0ms	phi1
179.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
172.0ms	lambda2

Results

Accuracy	Segments	Branch
99.7%	1	`(-.f64 lambda1 lambda2)`
99.7%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
99.7%	1	`lambda1`
99.7%	1	`lambda2`
99.7%	1	`phi1`
99.7%	1	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes1.2s (2.2%)

Memory

76.3MiB live, 1 992.0MiB allocated; 327ms collecting garbage

Counts

594 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 (sin.f64 phi2))) (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (- (* -1/2 (* lambda2 (cos lambda1))) (* -1 (sin lambda1))))) (.f64 (pow.f64 lambda2 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (/.f64 (cos.f64 lambda1) lambda2))) lambda2) (*.f64 #s(literal -1/2 binary64) (cos.f64 lambda1)))))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

6 calls:

250.0ms	lambda2
204.0ms	phi1
187.0ms	phi2
173.0ms	(-.f64 lambda1 lambda2)
163.0ms	lambda1

Results

Accuracy	Segments	Branch
89.6%	1	`(-.f64 lambda1 lambda2)`
89.6%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
92.6%	2	`lambda1`
91.3%	2	`lambda2`
89.6%	1	`phi1`
95.2%	3	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes263.0ms (0.5%)

Memory

27.0MiB live, 444.8MiB allocated; 45ms collecting garbage

Counts

588 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (+.f64 #s(approx (* (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 (-.f64 (pow.f64 (.f64 (sin.f64 phi2) (cos.f64 phi1)) #s(literal 3 binary64)) (pow.f64 #s(approx (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))) #s(literal 3 binary64))) #s(approx (+ (pow ( (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (*.f64 (cos.f64 phi2) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

188.0ms

phi2

Results

Accuracy	Segments	Branch
95.2%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes210.0ms (0.4%)

Memory

-31.6MiB live, 409.5MiB allocated; 64ms collecting garbage

Counts

579 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (cos.f64 lambda1))) (.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 #s(approx (* (cos phi2) (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2)))) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 #s(approx ( (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (*.f64 phi2 (cos.f64 phi1))) (*.f64 (*.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (+.f64 (*.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

163.0ms

phi2

Results

Accuracy	Segments	Branch
95.2%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes280.0ms (0.5%)

Memory

4.9MiB live, 396.2MiB allocated; 101ms collecting garbage

Counts

573 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 #s(approx (+ lambda1 (/ (PI) 2)) lambda1)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (*.f64 #s(literal -1 binary64) lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (/.f64 #s(approx (- (pow ( (sin phi2) (cos phi1)) 3) (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 3)) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 3 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 3 binary64))))) #s(approx (+ (pow (* (sin phi2) (cos phi1)) 2) (+ (pow (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2))) 2) (* (* (sin phi2) (cos phi1)) (* (cos (- lambda1 lambda2)) (* (sin phi1) (cos phi2)))))) (*.f64 (pow.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(literal 2 binary64)) (pow.f64 (sin.f64 phi1) #s(literal 2 binary64))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (fma.f64 #s(literal -1/2 binary64) (neg.f64 (sin.f64 lambda2)) (.f64 (.f64 (cos.f64 lambda2) lambda1) #s(literal -1/6 binary64))) lambda1 (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (*.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) #s(approx (* lambda2 (cos lambda1)) lambda2)) (*.f64 #s(literal -1 binary64) (sin.f64 lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (fma.f64 (sin.f64 phi2) (cos.f64 (/.f64 (PI.f64) #s(literal 2 binary64))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 #s(approx (+ ( lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda2) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (.f64 lambda2 (cos.f64 lambda1)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) #s(approx (sin lambda2) lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (*.f64 (cos.f64 phi2) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

174.0ms

phi2

Results

Accuracy	Segments	Branch
94.3%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes1.0s (1.9%)

Memory

33.7MiB live, 1 842.6MiB allocated; 193ms collecting garbage

Counts

547 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (.f64 (cos.f64 phi2) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))

#s(approx (atan2 (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (atan2.f64 (*.f64 (cos.f64 phi2) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))))) (*.f64 #s(literal -1 binary64) (*.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))

Calls

6 calls:

225.0ms	lambda2
150.0ms	phi2
148.0ms	lambda1
145.0ms	phi1
145.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
89.1%	3	`phi1`
82.3%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
84.0%	2	`(-.f64 lambda1 lambda2)`
89.8%	3	`lambda2`
89.6%	3	`lambda1`
89.9%	3	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes404.0ms (0.8%)

Memory

-10.5MiB live, 698.6MiB allocated; 70ms collecting garbage

Counts

545 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))

(atan2.f64 (*.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))

Calls

2 calls:

217.0ms	phi2
153.0ms	lambda2

Results

Accuracy	Segments	Branch
89.8%	3	`lambda2`
85.5%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes600.0ms (1.1%)

Memory

19.4MiB live, 946.4MiB allocated; 221ms collecting garbage

Counts

541 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (fma.f64 (.f64 lambda1 (cos.f64 phi2)) (cos.f64 lambda2) (.f64 (neg.f64 (sin.f64 lambda2)) (cos.f64 phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (- lambda1 lambda2) (/ (PI) 2)) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2)) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) (.f64 (pow.f64 lambda1 #s(literal 2 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 #s(approx (+ ( -1 (cos lambda2)) (/ (sin lambda2) lambda1)) (/.f64 (sin.f64 lambda2) lambda1)) lambda1) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 (+.f64 lambda2 (/.f64 (pow.f64 lambda2 #s(literal 2 binary64)) lambda1))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 #s(approx (* (cos (neg lambda2)) (cos (+ phi2 (* 1/2 (PI))))) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

Outputs

(atan2.f64 (*.f64 (-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

3 calls:

240.0ms	lambda2
190.0ms	lambda1
135.0ms	phi1

Results

Accuracy	Segments	Branch
89.1%	3	`phi1`
84.9%	2	`lambda1`
86.0%	3	`lambda2`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes193.0ms (0.4%)

Memory

8.7MiB live, 240.3MiB allocated; 18ms collecting garbage

Counts

517 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

154.0ms

phi1

Results

Accuracy	Segments	Branch
89.0%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes216.0ms (0.4%)

Memory

14.7MiB live, 302.4MiB allocated; 64ms collecting garbage

Counts

515 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))

(atan2.f64 (*.f64 (-.f64 #s(approx (* (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

183.0ms

phi1

Results

Accuracy	Segments	Branch
89.0%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes168.0ms (0.3%)

Memory

-12.5MiB live, 366.4MiB allocated; 27ms collecting garbage

Counts

514 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

136.0ms

phi1

Results

Accuracy	Segments	Branch
88.6%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes197.0ms (0.4%)

Memory

36.6MiB live, 328.3MiB allocated; 29ms collecting garbage

Counts

512 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (fma.f64 (cos.f64 lambda1) #s(approx (cos lambda2) #s(literal 1 binary64)) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) #s(approx (- (+ ( 1/2 (/ lambda2 lambda1)) (/ 1 (pow lambda1 2))) 1/6) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (/.f64 (-.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (pow.f64 lambda2 #s(literal 3 binary64))) (fma.f64 lambda1 lambda1 (fma.f64 lambda2 lambda2 (.f64 lambda1 lambda2))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) #s(approx (+ (* -1 lambda2) (* lambda1 (+ 1 (* lambda1 (+ (* -1/6 lambda1) (* 1/2 lambda2)))))) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (-.f64 (fma.f64 #s(literal 1/2 binary64) (/.f64 lambda2 lambda1) (/.f64 #s(literal 1 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))) #s(literal 1/6 binary64)))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (/.f64 #s(approx (- (pow lambda1 3) (pow lambda2 3)) (.f64 #s(literal -1 binary64) (pow.f64 lambda2 #s(literal 3 binary64)))) (fma.f64 lambda1 lambda1 #s(approx (+ (* lambda2 lambda2) (* lambda1 lambda2)) (.f64 lambda1 #s(approx (+ lambda2 (/ (pow lambda2 2) lambda1)) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (/.f64 lambda2 lambda1))))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos (- lambda1 lambda2)) (cos (+ phi2 (/ (PI) 2)))) (* (sin (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 (cos.f64 (neg.f64 lambda2)) (cos.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (cos.f64 phi2) (sin.f64 (neg.f64 lambda2)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 (/.f64 (PI.f64) #s(literal 2 binary64)) (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (cos.f64 phi2) (sin.f64 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 lambda1 (cos.f64 (neg.f64 lambda2)))) (sin.f64 (neg.f64 lambda2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (*.f64 (*.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

164.0ms

phi1

Results

Accuracy	Segments	Branch
88.6%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes207.0ms (0.4%)

Memory

-11.4MiB live, 317.0MiB allocated; 29ms collecting garbage

Counts

490 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) #s(approx (- (* phi2 (cos phi1)) (* (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1)))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (sin.f64 (+.f64 lambda1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) #s(approx (+ (* -1 (* lambda2 (cos phi2))) (* lambda1 (cos phi2))) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 phi2) (/.f64 (.f64 lambda1 (cos.f64 phi2)) lambda2)))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (cos (+ (+ phi2 (/ (PI) 2)) phi1))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (cos.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 #s(approx (- (/ 1 lambda2) (/ 1 lambda1)) (/.f64 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1))) lambda2)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos (+ phi2 (/ (PI) 2))) (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi1 (/ (PI) 2)) phi2) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2)) (cos.f64 (+.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64))) phi2))) #s(literal 2 binary64)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* lambda1 (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))))))) (.f64 #s(literal -1 binary64) (.f64 (pow.f64 lambda1 #s(literal 3 binary64)) (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (/.f64 (fma.f64 #s(literal -1 binary64) (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1 binary64) (/.f64 (sin.f64 (neg.f64 lambda2)) lambda1))) lambda1) (.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)))) lambda1) (.f64 #s(literal 1/6 binary64) (cos.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (sin.f64 lambda1) lambda2 (cos.f64 lambda1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (cos.f64 lambda2) lambda1 (neg.f64 (sin.f64 lambda2)))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda2) (cos.f64 lambda1) (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda2) (*.f64 lambda1 (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (*.f64 #s(literal -1 binary64) phi1) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (sin.f64 phi2))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

140.0ms

phi1

Results

Accuracy	Segments	Branch
88.5%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes149.0ms (0.3%)

Memory

-23.3MiB live, 319.3MiB allocated; 28ms collecting garbage

Counts

432 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (+ (* (* lambda1 (cos phi2)) (cos lambda2)) (* (neg (sin lambda2)) (cos phi2))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (*.f64 #s(literal -1 binary64) (*.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

115.0ms

phi1

Results

Accuracy	Segments	Branch
87.4%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes159.0ms (0.3%)

Memory

56.3MiB live, 357.2MiB allocated; 38ms collecting garbage

Counts

427 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

116.0ms

phi1

Results

Accuracy	Segments	Branch
87.4%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes163.0ms (0.3%)

Memory

14.6MiB live, 304.3MiB allocated; 50ms collecting garbage

Counts

425 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (sin.f64 #s(approx (+ phi1 (/ (PI) 2)) phi1)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx ( (neg (* (sin phi1) (cos phi2))) (cos (- lambda1 lambda2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

1 calls:

124.0ms

phi1

Results

Accuracy	Segments	Branch
87.4%	3	`phi1`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes828.0ms (1.5%)

Memory

-37.6MiB live, 1 023.6MiB allocated; 203ms collecting garbage

Counts

422 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

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

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

6 calls:

189.0ms	phi1
167.0ms	phi2
119.0ms	lambda1
116.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
106.0ms	lambda2

Results

Accuracy	Segments	Branch
74.9%	4	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
77.0%	3	`phi2`
73.3%	3	`(-.f64 lambda1 lambda2)`
80.4%	3	`lambda2`
80.3%	3	`lambda1`
78.8%	3	`phi1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes135.0ms (0.3%)

Memory

-12.2MiB live, 229.5MiB allocated; 15ms collecting garbage

Counts

421 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 (.f64 (cos.f64 lambda1) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2))) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (*.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

1 calls:

108.0ms

lambda2

Results

Accuracy	Segments	Branch
80.4%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes149.0ms (0.3%)

Memory

37.8MiB live, 224.4MiB allocated; 17ms collecting garbage

Counts

411 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 (neg.f64 (cos.f64 lambda1)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))

Outputs

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (*.f64 (neg.f64 (cos.f64 lambda1)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

1 calls:

125.0ms

lambda2

Results

Accuracy	Segments	Branch
80.4%	3	`lambda2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes461.0ms (0.9%)

Memory

-9.8MiB live, 751.6MiB allocated; 56ms collecting garbage

Counts

410 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) (*.f64 #s(literal -1 binary64) lambda1)))))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 phi1))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) #s(approx (sin (- phi1 phi2)) (sin.f64 (neg.f64 phi2)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (*.f64 #s(literal 1/2 binary64) (+.f64 (sin.f64 phi2) (sin.f64 (neg.f64 phi2))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 lambda1) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) (.f64 #s(literal -1 binary64) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) #s(approx (sin (+ phi1 phi2)) (sin.f64 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- phi1 (+ phi2 (/ (PI) 2))) phi1)) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (fma.f64 (neg.f64 lambda1) (neg.f64 (sin.f64 lambda2)) (cos.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (sin (+ phi2 (/ (PI) 2)))) (cos (- lambda1 lambda2))) (.f64 (cos.f64 (neg.f64 lambda2)) (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (-.f64 (.f64 (.f64 (sin.f64 phi2) phi1) #s(literal -1/2 binary64)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2))) phi1 (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 #s(approx (- phi1 phi2) phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) #s(approx ( lambda1 (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2)))) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2)) (.f64 #s(literal 1/2 binary64) (sin.f64 lambda2))))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (-.f64 lambda1 lambda2) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (sin.f64 (+.f64 phi1 (/.f64 (PI.f64) #s(literal 2 binary64)))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 lambda2))) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 #s(approx (+ lambda1 ( -1/2 lambda2)) (*.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ lambda2 ( -1/2 lambda1)) (*.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) #s(approx (* (neg (cos lambda1)) (* (sin phi1) (cos phi2))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (.f64 #s(literal 1/2 binary64) (-.f64 (cos.f64 (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi2 (PI.f64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 (fma.f64 (.f64 #s(literal -1/2 binary64) lambda2) (sin.f64 lambda1) (neg.f64 (cos.f64 lambda1))) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2)))))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(approx (+ (* (* phi1 phi1) -1/2) 1) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) (-.f64 (/.f64 #s(literal 1 binary64) (pow.f64 phi1 #s(literal 2 binary64))) #s(literal 1/2 binary64))))) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 (+.f64 (neg.f64 (-.f64 lambda1 lambda2)) (/.f64 (PI.f64) #s(literal 2 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 (fma.f64 (.f64 phi2 phi2) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi2))) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (.f64 phi1 phi1) #s(literal -1/6 binary64) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 #s(approx (+ (* -1/6 lambda1) (* 1/2 lambda2)) (.f64 #s(literal -1/6 binary64) lambda1)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) #s(approx (+ phi2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (+ phi2 (/ (PI) 2)) phi1) phi2)) (cos.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ phi1 (+ phi2 (/ (PI) 2))) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos (neg lambda2)) (* lambda1 (- (* -1/2 (* lambda1 (cos (neg lambda2)))) (sin (neg lambda2))))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (cos.f64 #s(approx (+ (+ phi2 (/ (PI) 2)) phi1) (+.f64 phi2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) (-.f64 (+.f64 #s(literal 1/24 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))) (.f64 #s(literal 1/2 binary64) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/720 binary64) (.f64 phi1 phi1) #s(literal 1/24 binary64)) (.f64 phi1 phi1)) #s(literal 1/2 binary64)) (.f64 phi1 phi1) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (/.f64 (-.f64 (cos.f64 (-.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 phi1 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) (.f64 (fma.f64 (-.f64 (.f64 (fma.f64 #s(literal -1/5040 binary64) (.f64 phi1 phi1) #s(literal 1/120 binary64)) (.f64 phi1 phi1)) #s(literal 1/6 binary64)) (*.f64 phi1 phi1) #s(literal 1 binary64)) phi1)) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) #s(approx (cos (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2)))) (+.f64 (cos.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)) (.f64 #s(literal -1 binary64) (.f64 lambda1 (sin.f64 (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1)) (sin.f64 (+.f64 (+.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))) phi1) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (sin.f64 #s(approx (+ (neg (- lambda1 lambda2)) (/ (PI) 2)) lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

4 calls:

127.0ms	lambda2
103.0ms	phi2
103.0ms	lambda1
102.0ms	phi1

Results

Accuracy	Segments	Branch
73.1%	3	`phi2`
74.7%	3	`phi1`
75.8%	5	`lambda1`
76.3%	5	`lambda2`

Compiler

Compiled 4 to 16 computations (-300% saved)

regimes253.0ms (0.5%)

Memory

-1.5MiB live, 478.8MiB allocated; 22ms collecting garbage

Counts

322 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Calls

3 calls:

79.0ms

(-.f64 lambda1 lambda2)

78.0ms

phi1

76.0ms

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
70.4%	3	`(-.f64 lambda1 lambda2)`
72.8%	5	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
73.2%	3	`phi1`

Compiler

Compiled 28 to 26 computations (7.1% saved)

regimes755.0ms (1.4%)

Memory

-53.4MiB live, 617.5MiB allocated; 1.2s collecting garbage

Counts

321 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (*.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (*.f64 (sin.f64 phi1) (cos.f64 phi2))))))

(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

3 calls:

162.0ms	phi2
83.0ms	lambda2
80.0ms	phi1

Results

Accuracy	Segments	Branch
73.1%	3	`phi2`
71.8%	3	`lambda2`
72.8%	3	`phi1`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes173.0ms (0.3%)

Memory

41.2MiB live, 175.5MiB allocated; 74ms collecting garbage

Counts

320 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (.f64 (cos.f64 lambda1) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda1)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) (cos.f64 lambda2)) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) #s(approx (* (cos lambda1) (sin lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (+ (* (sin phi2) (sin (+ (/ (PI) 2) (/ (PI) 2)))) (* (cos phi2) (sin (/ (PI) 2))))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (fma.f64 (cos.f64 phi2) (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 (sin.f64 phi2) (sin.f64 (PI.f64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (cos phi2) (* (cos (- lambda1 lambda2)) (sin phi1)))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 (cos.f64 lambda1) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (*.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 #s(approx (* (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))

(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

1 calls:

153.0ms

phi2

Results

Accuracy	Segments	Branch
73.1%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes270.0ms (0.5%)

Memory

-38.0MiB live, 312.1MiB allocated; 87ms collecting garbage

Counts

309 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (cos.f64 lambda2) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 lambda2) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) (cos.f64 phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 ( 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))

Outputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (-.f64 (*.f64 (sin.f64 lambda1) (cos.f64 lambda2)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Calls

2 calls:

123.0ms	phi2
95.0ms	phi1

Results

Accuracy	Segments	Branch
72.8%	3	`phi1`
72.0%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes620.0ms (1.2%)

Memory

-8.2MiB live, 656.5MiB allocated; 139ms collecting garbage

Counts

291 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ ( (neg lambda1) (neg (sin lambda2))) (cos lambda2)) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (+.f64 #s(approx ( (cos lambda1) (cos lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (fma.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (cos.f64 lambda2) (*.f64 (sin.f64 lambda1) (sin.f64 lambda2)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 (cos.f64 phi1) phi2) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (sin.f64 phi2) (cos.f64 phi1) (.f64 #s(approx (neg (cos lambda1)) #s(literal -1 binary64)) (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (-.f64 #s(approx ( (sin lambda1) (cos lambda2)) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 lambda1) #s(approx ( -1 (* lambda2 (cos lambda1))) (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 lambda2 (fma.f64 #s(literal -1 binary64) (cos.f64 lambda1) (.f64 #s(literal -1/2 binary64) (.f64 lambda2 (sin.f64 lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 ( 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64)))))))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) #s(approx (+ 1 (* lambda1 (+ lambda2 (* -1/2 lambda1)))) (*.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx ( (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) (cos (- lambda1 lambda2))) (.f64 #s(literal 1/2 binary64) (.f64 (cos.f64 (neg.f64 lambda2)) (+.f64 (sin.f64 (+.f64 phi1 phi2)) (sin.f64 (-.f64 phi1 phi2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/2 binary64) (.f64 lambda1 (sin.f64 (neg.f64 lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 #s(approx (- (* 1/2 (PI)) phi1) (*.f64 #s(literal 1/2 binary64) (PI.f64)))) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) phi1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 #s(approx (+ phi1 (PI)) (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (.f64 (sin.f64 lambda1) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 (-.f64 (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos lambda2)) lambda1)) (.f64 #s(literal -1/2 binary64) (sin.f64 lambda2)))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) #s(approx ( (cos (- lambda1 lambda2)) (- (cos (- (* 1/2 (PI)) phi1)) (sin (+ phi1 (PI))))) (.f64 (cos.f64 (neg.f64 lambda2)) (-.f64 (cos.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (/ (- (cos (- (+ phi2 (/ (PI) 2)) phi1)) (sin (+ (+ (+ phi2 (/ (PI) 2)) phi1) (/ (PI) 2)))) 2) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1/2 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (-.f64 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) phi1)) (sin.f64 (+.f64 phi1 (PI.f64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 #s(approx (sin (- phi1 phi2)) (sin.f64 phi1)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 #s(approx (+ phi1 phi2) phi1))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (.f64 (cos.f64 phi2) (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) #s(approx ( lambda1 (cos (neg lambda2))) lambda1)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (/.f64 (+.f64 (sin.f64 (-.f64 phi1 phi2)) (sin.f64 (+.f64 phi1 phi2))) #s(literal 2 binary64)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (- (* (* phi2 phi2) 1/24) 1/2) (* phi2 phi2)) 1) (.f64 (pow.f64 phi2 #s(literal 4 binary64)) #s(approx (- (+ 1/24 (/ 1 (pow phi2 4))) ( 1/2 (/ 1 (pow phi2 2)))) (/.f64 #s(literal 1 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (*.f64 phi1 (cos.f64 phi2))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (neg lambda1) (neg (sin lambda2))) (cos lambda2)) (+.f64 #s(literal 1 binary64) (.f64 lambda2 (+.f64 lambda1 (.f64 #s(literal -1/2 binary64) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (* (sin lambda1) lambda2) (cos lambda1)) (+.f64 #s(literal 1 binary64) (.f64 lambda1 (+.f64 lambda2 (.f64 #s(literal -1/2 binary64) lambda1)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (.f64 (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (+.f64 #s(literal 1/24 binary64) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 2 binary64))))) #s(literal 1/2 binary64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) (-.f64 (.f64 (cos.f64 phi1) #s(approx (sin phi2) phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) #s(approx (+ (* (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 lambda1 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (.f64 #s(literal -1 binary64) (/.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2) lambda1)) #s(literal 1 binary64))))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 lambda1) (.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (sin (+ phi1 (/ (PI) 2))) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (*.f64 phi2 phi2) #s(literal 1 binary64)))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 (cos.f64 phi2) (.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 (fma.f64 #s(literal -1/2 binary64) (sin.f64 (neg.f64 lambda2)) (.f64 #s(literal -1/6 binary64) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (neg lambda2) (cos lambda1)) (sin lambda1)) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (*.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) (.f64 phi1 (cos.f64 phi2))) (cos.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 (+.f64 lambda2 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))) lambda1)))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) (*.f64 (cos.f64 phi2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))

(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (*.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (*.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (*.f64 (cos.f64 phi1) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))

Calls

6 calls:

153.0ms	lambda1
119.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
91.0ms	lambda2
91.0ms	phi1
77.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
63.2%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
63.2%	1	`(-.f64 lambda1 lambda2)`
63.2%	1	`lambda2`
66.5%	3	`phi2`
63.2%	1	`lambda1`
63.2%	1	`phi1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes126.0ms (0.2%)

Memory

29.1MiB live, 212.7MiB allocated; 16ms collecting garbage

Counts

222 → 1

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (.f64 phi2 (cos.f64 phi1))) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 ( 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (fma.f64 #s(literal -1 binary64) (.f64 (cos.f64 phi2) (sin.f64 lambda2)) (.f64 lambda1 (.f64 (cos.f64 lambda2) (cos.f64 phi2))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) #s(literal 1 binary64)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (.f64 #s(approx ( (cos lambda1) (cos phi2)) (cos.f64 phi2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) (sin.f64 phi1)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos (neg lambda2)) #s(literal 1 binary64))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Calls

2 calls:

58.0ms	phi2
54.0ms	phi1

Results

Accuracy	Segments	Branch
63.2%	1	`phi1`
63.2%	1	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes395.0ms (0.7%)

Memory

-5.8MiB live, 479.0MiB allocated; 49ms collecting garbage

Counts

212 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (-.f64 (.f64 #s(approx (sin lambda1) lambda1) (cos.f64 lambda2)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))

Calls

6 calls:

110.0ms	phi1
59.0ms	lambda2
55.0ms	lambda1
54.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
53.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
60.5%	2	`(-.f64 lambda1 lambda2)`
63.2%	3	`lambda1`
64.5%	3	`phi2`
61.8%	3	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
63.9%	3	`lambda2`
64.2%	3	`phi1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes66.0ms (0.1%)

Memory

30.5MiB live, 121.2MiB allocated; 6ms collecting garbage

Counts

209 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ ( (+ (* (* -1/2 lambda1) (neg (sin lambda2))) (cos lambda2)) lambda1) (neg (sin lambda2))) lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (*.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

Calls

1 calls:

54.0ms

phi2

Results

Accuracy	Segments	Branch
64.4%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes190.0ms (0.4%)

Memory

-5.1MiB live, 278.2MiB allocated; 51ms collecting garbage

Counts

205 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (*.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))

Calls

3 calls:

72.0ms	phi1
55.0ms	phi2
49.0ms	lambda2

Results

Accuracy	Segments	Branch
63.8%	3	`lambda2`
63.6%	3	`phi1`
63.8%	3	`phi2`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes111.0ms (0.2%)

Memory

1.6MiB live, 140.6MiB allocated; 13ms collecting garbage

Counts

202 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) #s(approx (sin (- (+ lambda1 (* 1/2 (PI))) lambda2)) (+.f64 (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)) (.f64 lambda1 (cos.f64 (-.f64 (*.f64 #s(literal 1/2 binary64) (PI.f64)) lambda2)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 #s(approx (cos phi1) (fma.f64 (.f64 phi1 phi1) #s(literal -1/2 binary64) #s(literal 1 binary64))) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 (pow.f64 phi2 #s(literal 2 binary64)) (-.f64 (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 2 binary64))) #s(literal 1/6 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1)) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(approx (- (/ lambda1 lambda2) 1) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1)))) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 #s(approx (- (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) phi2))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (* (cos lambda1) (cos phi2)) (sin phi1)) #s(approx (* (cos phi2) (sin phi1)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))

Outputs

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

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

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

2 calls:

50.0ms	lambda2
50.0ms	phi2

Results

Accuracy	Segments	Branch
63.8%	3	`phi2`
62.5%	3	`lambda2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes99.0ms (0.2%)

Memory

-11.5MiB live, 123.8MiB allocated; 9ms collecting garbage

Counts

177 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (-.f64 (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ (neg phi2) (/ (PI) 2)) (.f64 #s(literal -1 binary64) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (+.f64 (sin.f64 phi2) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (+.f64 (cos.f64 (neg.f64 lambda2)) (.f64 lambda1 #s(approx (+ (* -1/2 (sin (neg lambda2))) (* -1/6 (* lambda1 (cos (neg lambda2))))) (.f64 #s(literal -1/6 binary64) lambda1))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) (.f64 phi1 (+.f64 #s(literal 1 binary64) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi1 #s(literal 2 binary64))))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

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

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

2 calls:

44.0ms	phi2
43.0ms	phi1

Results

Accuracy	Segments	Branch
63.6%	3	`phi1`
63.6%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes89.0ms (0.2%)

Memory

18.8MiB live, 113.8MiB allocated; 9ms collecting garbage

Counts

162 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 #s(approx ( (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda1 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) (.f64 (.f64 #s(approx (sin phi1) phi1) (cos.f64 phi2)) #s(approx (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (cos lambda1) #s(literal 1 binary64))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (cos.f64 (-.f64 lambda1 lambda2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)) (cos.f64 lambda1)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (fma.f64 #s(approx (+ ( (* -1/2 lambda2) (sin lambda1)) (neg (cos lambda1))) #s(literal -1 binary64)) lambda2 (sin.f64 lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) #s(approx (+ (sin lambda1) ( -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (+.f64 (cos.f64 lambda1) (*.f64 lambda2 (sin.f64 lambda1)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 (.f64 #s(literal -1 binary64) phi1) #s(approx ( (cos (- lambda1 lambda2)) (cos phi2)) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))) (sin.f64 phi2))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (+.f64 (cos.f64 lambda2) (.f64 lambda1 #s(approx (- (* -1/6 (* lambda1 (cos lambda2))) (* -1/2 (sin lambda2))) (.f64 #s(literal -1/6 binary64) lambda1))))) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) (*.f64 #s(approx (* (sin phi1) (cos phi2)) #s(approx (* phi1 (cos phi2)) phi1)) (cos.f64 (-.f64 lambda1 lambda2)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Calls

2 calls:

40.0ms	phi2
39.0ms	phi1

Results

Accuracy	Segments	Branch
63.6%	3	`phi1`
63.6%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes81.0ms (0.2%)

Memory

13.0MiB live, 102.2MiB allocated; 7ms collecting garbage

Counts

145 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 #s(approx (/ (+ (sin (- phi1 phi2)) (sin (+ phi1 phi2))) 2) #s(approx (* 1/2 (+ (sin phi2) (sin (neg phi2)))) #s(literal 0 binary64))) (cos.f64 (-.f64 lambda1 lambda2)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (*.f64 phi2 (cos.f64 phi1)) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

2 calls:

37.0ms	phi1
35.0ms	phi2

Results

Accuracy	Segments	Branch
63.6%	3	`phi2`
63.6%	3	`phi1`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes81.0ms (0.2%)

Memory

5.1MiB live, 100.3MiB allocated; 10ms collecting garbage

Counts

142 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) lambda2))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

Calls

2 calls:

36.0ms	phi2
36.0ms	phi1

Results

Accuracy	Segments	Branch
63.6%	3	`phi1`
63.2%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes77.0ms (0.1%)

Memory

8.9MiB live, 98.5MiB allocated; 7ms collecting garbage

Counts

138 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx ( (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 (.f64 phi2 (cos.f64 phi1)) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

2 calls:

35.0ms	phi2
34.0ms	phi1

Results

Accuracy	Segments	Branch
63.2%	3	`phi2`
62.8%	3	`phi1`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes185.0ms (0.3%)

Memory

-8.1MiB live, 93.4MiB allocated; 147ms collecting garbage

Counts

131 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 phi1 #s(approx (+ ( -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (fma.f64 #s(approx (- (* (* (sin phi2) phi1) -1/2) (* (cos (- lambda1 lambda2)) (cos phi2))) #s(approx (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2)))) phi1 (sin.f64 phi2))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 (neg.f64 phi2) (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda2 (* 1/2 (PI))) lambda1) (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 #s(approx (+ lambda2 (* 1/2 (PI))) (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (sin (+ phi2 (/ (PI) 2))) (+.f64 (sin.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))) (.f64 phi2 (cos.f64 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* 1/24 (pow phi2 2)) 1/2))) (.f64 #s(literal 1/24 binary64) (pow.f64 phi2 #s(literal 4 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ 1 ( (pow phi2 2) (- (* (pow phi2 2) (+ 1/24 (* -1/720 (pow phi2 2)))) 1/2))) (.f64 #s(literal -1/720 binary64) (pow.f64 phi2 #s(literal 6 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda2 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 #s(approx (- (/ 1 lambda1) (/ 1 lambda2)) (/.f64 #s(literal -1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 #s(approx (* (cos phi2) (cos (- lambda1 lambda2))) (*.f64 (cos.f64 lambda1) (cos.f64 phi2))))))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) lambda1))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) phi2))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (-.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2)))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (+ (sin phi2) (* -1 (* phi1 (* (cos phi2) (cos (- lambda1 lambda2)))))) (.f64 #s(literal -1 binary64) (.f64 phi1 (*.f64 (cos.f64 phi2) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) #s(approx ( -1 (* lambda2 (+ 1 (* -1 (/ lambda1 lambda2))))) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (.f64 #s(literal -1 binary64) lambda2)))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 #s(literal 1 binary64) lambda1) (/.f64 #s(literal 1 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) #s(approx (+ phi2 (/ (PI) 2)) (.f64 #s(literal 1/2 binary64) (PI.f64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 #s(approx (+ (- lambda1 lambda2) (+ phi2 (/ (PI) 2))) (+.f64 lambda1 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64))))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda1 lambda2))))))) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (/.f64 (-.f64 (cos.f64 (-.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) lambda2)) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) (cos.f64 (+.f64 (-.f64 lambda1 lambda2) (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64)))))) #s(literal 2 binary64)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 #s(approx (* (cos lambda2) (sin lambda1)) (sin.f64 lambda1)) (.f64 (cos.f64 lambda1) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) (-.f64 (.f64 (cos.f64 lambda2) (sin.f64 lambda1)) (.f64 #s(approx (cos lambda1) #s(literal 1 binary64)) (sin.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (sin phi1)) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) (cos.f64 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) #s(approx ( (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 (neg.f64 lambda2))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) (-.f64 #s(approx (* (cos phi1) (sin phi2)) (sin.f64 phi2)) #s(approx (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2))) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (*.f64 phi1 #s(approx (+ (* -1 (* (cos phi2) (cos (- lambda1 lambda2)))) (/ (sin phi2) phi1)) (/.f64 (sin.f64 phi2) phi1))))))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

2 calls:

42.0ms	lambda1
31.0ms	phi2

Results

Accuracy	Segments	Branch
50.9%	2	`lambda1`
63.1%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes29.0ms (0.1%)

Memory

-7.4MiB live, 37.2MiB allocated; 3ms collecting garbage

Counts

89 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (.f64 #s(approx (+ ( (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) #s(literal 1 binary64))) (sin.f64 phi1)))))
#s(approx (atan2 (* (sin (- lambda1 lambda2)) (sin (+ (neg phi2) (/ (PI) 2)))) (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2)))))) (atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (-.f64 (.f64 #s(literal 1/2 binary64) (PI.f64)) phi2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (cos phi2) (* (sin phi1) (sin (- (+ lambda1 (* 1/2 (PI))) lambda2))))) (sin.f64 phi2))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (+ (* -1 (* (cos phi2) (sin lambda2))) (* lambda1 (* (cos lambda2) (cos phi2)))) (fma.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 phi2)) (.f64 lambda1 (cos.f64 phi2))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (*.f64 #s(literal -1 binary64) lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 lambda1) (.f64 #s(literal -1 binary64) (.f64 lambda2 (cos.f64 lambda1))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 #s(approx (- (+ lambda1 (* 1/2 (PI))) lambda2) (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64)))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 #s(approx (- (/ lambda1 lambda2) 1) (/.f64 lambda1 lambda2))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* (pow phi2 2) (- (* 1/120 (pow phi2 2)) 1/6)))) (*.f64 #s(literal 1/120 binary64) (pow.f64 phi2 #s(literal 5 binary64)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (- lambda1 lambda2) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) (.f64 (sin.f64 phi1) (sin.f64 (-.f64 (+.f64 lambda1 (*.f64 #s(literal 1/2 binary64) (PI.f64))) lambda2))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

1 calls:

23.0ms

phi2

Results

Accuracy	Segments	Branch
63.1%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes92.0ms (0.2%)

Memory

19.8MiB live, 116.0MiB allocated; 10ms collecting garbage

Counts

70 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (.f64 lambda1 (cos.f64 (neg.f64 lambda2))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2)))) (*.f64 (cos.f64 lambda2) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) (cos.f64 lambda1)) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 (neg.f64 lambda2)) (sin.f64 phi1))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

5 calls:

19.0ms	lambda2
18.0ms	phi2
17.0ms	phi1
17.0ms	(-.f64 lambda1 lambda2)
16.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
47.9%	3	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
50.7%	4	`(-.f64 lambda1 lambda2)`
50.8%	4	`lambda2`
56.6%	3	`phi1`
58.5%	3	`phi2`

Compiler

Compiled 30 to 34 computations (-13.3% saved)

regimes50.0ms (0.1%)

Memory

-27.4MiB live, 64.5MiB allocated; 3ms collecting garbage

Counts

61 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 #s(approx (+ phi2 (/ (PI) 2)) phi2))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 (cos.f64 lambda1) (sin.f64 phi1))))))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (neg.f64 (*.f64 (cos.f64 (-.f64 lambda1 lambda2)) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (- (* lambda1 (cos lambda2)) (sin lambda2)) (.f64 lambda1 (cos.f64 lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (+.f64 (sin.f64 (neg.f64 lambda2)) #s(approx (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2)))))) lambda1))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

3 calls:

16.0ms	lambda1
15.0ms	phi2
15.0ms	phi1

Results

Accuracy	Segments	Branch
45.4%	2	`lambda1`
50.6%	3	`phi1`
52.3%	3	`phi2`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes74.0ms (0.1%)

Memory

2.0MiB live, 95.1MiB allocated; 9ms collecting garbage

Counts

55 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (-.f64 #s(approx (* lambda1 (cos lambda2)) lambda1) (sin.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

5 calls:

15.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
15.0ms	phi1
14.0ms	phi2
13.0ms	lambda2
13.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
38.6%	2	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
42.0%	3	`(-.f64 lambda1 lambda2)`
43.3%	3	`lambda2`
44.5%	3	`phi1`
47.0%	3	`phi2`

Compiler

Compiled 30 to 34 computations (-13.3% saved)

regimes44.0ms (0.1%)

Memory

13.4MiB live, 58.9MiB allocated; 2ms collecting garbage

Counts

54 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) (.f64 (sin.f64 (neg.f64 lambda2)) (sin.f64 #s(approx (+ phi2 ( 1/2 (PI))) phi2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (-.f64 (.f64 lambda1 (cos.f64 lambda2)) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

3 calls:

14.0ms	lambda1
13.0ms	phi1
13.0ms	phi2

Results

Accuracy	Segments	Branch
41.1%	3	`phi1`
44.2%	4	`lambda1`
44.4%	3	`phi2`

Compiler

Compiled 3 to 12 computations (-300% saved)

regimes55.0ms (0.1%)

Memory

-21.3MiB live, 70.4MiB allocated; 4ms collecting garbage

Counts

50 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (-.f64 (.f64 (.f64 phi2 phi2) #s(literal 1/24 binary64)) #s(literal 1/2 binary64)) (.f64 phi2 phi2) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 #s(approx (+ 1 (* -1 (/ lambda2 lambda1))) (.f64 lambda2 (-.f64 (/.f64 #s(literal 1 binary64) lambda2) (/.f64 #s(literal 1 binary64) lambda1))))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 (-.f64 (.f64 #s(literal -1/2 binary64) (*.f64 phi1 phi2)) (cos.f64 (-.f64 lambda1 lambda2))))))))

Outputs

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 lambda2 (-.f64 (*.f64 lambda2 (fma.f64 #s(literal -1/2 binary64) lambda1 (*.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

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

Calls

4 calls:

13.0ms	lambda2
12.0ms	lambda1
12.0ms	phi2
12.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
35.9%	1	`(-.f64 lambda1 lambda2)`
35.9%	1	`lambda1`
35.9%	1	`lambda2`
41.9%	3	`phi2`

Compiler

Compiled 6 to 17 computations (-183.3% saved)

regimes14.0ms (0%)

Memory

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

Counts

46 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 lambda2 #s(approx (+ (* -1/2 lambda1) (* 1/6 lambda2)) (.f64 #s(literal 1/6 binary64) lambda2))) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) (+.f64 phi2 (.f64 phi1 #s(approx (- ( -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))) (.f64 #s(literal -1/2 binary64) (.f64 phi1 phi2))))))))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1 binary64) (/.f64 lambda2 lambda1)))))) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (sin (+ (neg (- lambda1 lambda2)) (/ (PI) 2))))) (.f64 #s(literal -1 binary64) #s(approx ( (sin phi1) (sin (- (+ lambda2 (* 1/2 (PI))) lambda1))) (.f64 phi1 (sin.f64 (-.f64 (+.f64 lambda2 (.f64 #s(literal 1/2 binary64) (PI.f64))) lambda1)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) #s(approx (+ phi2 (* phi1 (- (* -1/2 (* phi1 phi2)) (cos (- lambda1 lambda2))))) (.f64 #s(literal -1/2 binary64) (.f64 (pow.f64 phi1 #s(literal 2 binary64)) phi2))))))

Outputs

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

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

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

Calls

1 calls:

11.0ms

phi2

Results

Accuracy	Segments	Branch
41.9%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes26.0ms (0%)

Memory

-15.9MiB live, 32.5MiB allocated; 6ms collecting garbage

Counts

41 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 lambda2 (-.f64 (.f64 #s(literal -1/2 binary64) (.f64 lambda1 lambda2)) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

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

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

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

Calls

2 calls:

13.0ms	phi1
10.0ms	phi2

Results

Accuracy	Segments	Branch
39.7%	3	`phi1`
40.6%	3	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes22.0ms (0%)

Memory

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

Counts

40 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) #s(approx (+ lambda1 (* -1 lambda2)) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64)))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 lambda2 (-.f64 (/.f64 lambda1 lambda2) #s(literal 1 binary64))))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

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

Calls

2 calls:

10.0ms	phi2
10.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
35.9%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
39.9%	3	`phi2`

Compiler

Compiled 25 to 21 computations (16% saved)

regimes13.0ms (0%)

Memory

-28.6MiB live, 17.3MiB allocated; 2ms collecting garbage

Counts

38 → 3

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (-.f64 #s(approx (* phi2 (cos phi1)) phi2) #s(approx (* (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) #s(approx (* phi2 (+ 1 (* -1/6 (pow phi2 2)))) (*.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 3 binary64)))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(approx (+ ( (* phi2 phi2) -1/2) 1) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 (neg.f64 lambda2)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 (cos.f64 (-.f64 lambda1 lambda2)) #s(approx (sin phi1) phi1)))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (sin (+ phi1 (/ (PI) 2))) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* phi2 (sin (+ phi1 (* 1/2 (PI))))) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 (sin.f64 (+.f64 phi1 (.f64 #s(literal 1/2 binary64) (PI.f64))))))))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi2 #s(literal 2 binary64)))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (.f64 phi2 #s(approx (cos phi1) (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/2 binary64) (pow.f64 phi1 #s(literal 2 binary64)))))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (sin (+ phi2 (/ (PI) 2)))) #s(approx (* (sin (neg lambda2)) (sin (+ phi2 (* 1/2 (PI))))) (.f64 #s(literal -1 binary64) (.f64 lambda2 (sin.f64 (+.f64 phi2 (.f64 #s(literal 1/2 binary64) (PI.f64)))))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin lambda1) (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 lambda1 #s(literal 2 binary64))))))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (+ (cos lambda1) (* lambda2 (sin lambda1))) (+.f64 #s(literal 1 binary64) (*.f64 lambda1 lambda2)))) (sin.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) (.f64 phi2 (+.f64 #s(literal 1 binary64) (.f64 #s(literal -1/6 binary64) (pow.f64 phi2 #s(literal 2 binary64))))))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (sin.f64 (+.f64 phi2 (/.f64 (PI.f64) #s(literal 2 binary64))))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (sin (neg lambda2)) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (+ (* (* -1 phi1) (* (cos (- lambda1 lambda2)) (cos phi2))) (sin phi2)) (.f64 #s(literal -1 binary64) (.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64))))))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (cos (neg lambda2)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

1 calls:

10.0ms

phi2

Results

Accuracy	Segments	Branch
39.9%	3	`phi2`

Compiler

Compiled 1 to 4 computations (-300% saved)

regimes13.0ms (0%)

Memory

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

Counts

21 → 2

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) (.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (*.f64 #s(literal -1 binary64) (*.f64 #s(approx (cos (- lambda1 lambda2)) #s(approx (cos lambda1) #s(literal 1 binary64))) (sin.f64 phi1)))))

Calls

2 calls:

6.0ms	phi1
6.0ms	phi2

Results

Accuracy	Segments	Branch
35.9%	1	`phi1`
38.0%	2	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

regimes35.0ms (0.1%)

Memory

3.4MiB live, 49.5MiB allocated; 2ms collecting garbage

Counts

20 → 2

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* lambda2 (+ (* -1 (cos lambda1)) (* -1/2 (* lambda2 (sin lambda1)))))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) #s(approx (sin (- lambda1 lambda2)) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (.f64 #s(literal -1 binary64) #s(approx ( (cos (- lambda1 lambda2)) (sin phi1)) (*.f64 phi1 (cos.f64 (-.f64 lambda1 lambda2)))))))

Outputs

(atan2.f64 (*.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (- (* (cos phi1) phi2) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Calls

6 calls:

6.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
5.0ms	lambda2
5.0ms	phi2
5.0ms	(-.f64 lambda1 lambda2)
5.0ms	phi1

Results

Accuracy	Segments	Branch
28.3%	1	`(-.f64 lambda1 lambda2)`
28.3%	1	`lambda1`
28.3%	1	`phi1`
28.3%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
28.3%	1	`lambda2`
30.7%	2	`phi2`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes11.0ms (0%)

Memory

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

Counts

17 → 1

Calls

Call 1

Inputs
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 #s(literal 1/2 binary64) (.f64 lambda1 lambda2))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (fma.f64 #s(literal -1 binary64) lambda2 (.f64 lambda1 (+.f64 #s(literal 1 binary64) (.f64 lambda1 (fma.f64 #s(literal -1/6 binary64) lambda1 (.f64 #s(literal 1/2 binary64) lambda2)))))))) (cos.f64 phi2)) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 (sin.f64 #s(approx (- lambda1 lambda2) (.f64 #s(literal -1 binary64) (.f64 lambda1 (-.f64 (/.f64 lambda2 lambda1) #s(literal 1 binary64)))))) #s(approx (cos phi2) (fma.f64 (.f64 phi2 phi2) #s(literal -1/2 binary64) #s(literal 1 binary64)))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))
(atan2.f64 #s(approx (* (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (cos phi2)) #s(approx (- (* (cos lambda2) (sin lambda1)) (* (cos lambda1) (sin lambda2))) (.f64 #s(literal -1 binary64) (sin.f64 lambda2)))) #s(approx (- ( (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin (neg lambda2)) (* lambda1 (+ (cos (neg lambda2)) (* -1/2 (* lambda1 (sin (neg lambda2))))))) lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 lambda1)) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) #s(approx (cos phi2) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))
(atan2.f64 (.f64 #s(approx (- ( (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) (sin.f64 (neg.f64 lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))
(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) (*.f64 phi2 (cos.f64 phi1)))))
(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) #s(approx (+ ( (sin phi2) (cos (/ (PI) 2))) (* (cos phi2) (sin (/ (PI) 2)))) #s(literal 1 binary64))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) (sin.f64 phi2)))

Outputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) (sin.f64 phi2)))

Calls

2 calls:

5.0ms	phi2
5.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))

Results

Accuracy	Segments	Branch
28.3%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
28.3%	1	`phi2`

Compiler

Compiled 25 to 21 computations (16% saved)

regimes18.0ms (0%)

Memory

-18.8MiB live, 27.5MiB allocated; 2ms collecting garbage

Counts

8 → 1

Calls

Call 1

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

Outputs

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

Calls

6 calls:

4.0ms	phi2
3.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
3.0ms	phi1
3.0ms	lambda2
3.0ms	(-.f64 lambda1 lambda2)

Results

Accuracy	Segments	Branch
27.1%	1	`lambda2`
27.1%	1	`(-.f64 lambda1 lambda2)`
27.1%	1	`lambda1`
27.1%	1	`phi1`
27.1%	1	`phi2`
27.1%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes10.0ms (0%)

Memory

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

Counts

3 → 2

Calls

Call 1

Inputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))

Outputs

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (+.f64 lambda1 (*.f64 #s(literal -1 binary64) lambda2)))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

Calls

6 calls:

2.0ms	(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))
1.0ms	(-.f64 lambda1 lambda2)
1.0ms	lambda2
1.0ms	phi2
1.0ms	lambda1

Results

Accuracy	Segments	Branch
27.1%	2	`phi2`
25.4%	1	`(-.f64 lambda1 lambda2)`
25.4%	1	`(atan2.f64 (.f64 (sin.f64 (-.f64 lambda1 lambda2)) (cos.f64 phi2)) (-.f64 (.f64 (cos.f64 phi1) (sin.f64 phi2)) (.f64 (.f64 (sin.f64 phi1) (cos.f64 phi2)) (cos.f64 (-.f64 lambda1 lambda2)))))`
25.4%	1	`lambda2`
25.4%	1	`phi1`
25.4%	1	`lambda1`

Compiler

Compiled 31 to 38 computations (-22.6% saved)

regimes3.0ms (0%)

Memory

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

Accuracy

Total -7.7b remaining (-16.1%)

Threshold costs -7.7b (-16.1%)

Counts

2 → 1

Calls

Call 1

Inputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

(atan2.f64 (*.f64 #s(approx (- (* (sin lambda1) (cos lambda2)) (* (cos lambda1) (sin lambda2))) #s(approx (+ (sin lambda1) (* -1 (* lambda2 (cos lambda1)))) (*.f64 #s(literal -1 binary64) lambda2))) (cos.f64 phi2)) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (cos (- lambda1 lambda2)))) #s(approx (sin phi2) phi2)))

Outputs

(atan2.f64 #s(approx (* (sin (- lambda1 lambda2)) (cos phi2)) (sin.f64 (-.f64 lambda1 lambda2))) #s(approx (- (* (cos phi1) (sin phi2)) (* (* (sin phi1) (cos phi2)) (+ (* (cos lambda1) (cos lambda2)) (* (sin lambda1) (sin lambda2))))) #s(approx (- (* phi2 (cos phi1)) (* (cos (- lambda1 lambda2)) (sin phi1))) phi2)))

Calls

2 calls:

1.0ms	phi2
1.0ms	lambda1

Results

Accuracy	Segments	Branch
25.4%	1	`lambda1`
25.4%	1	`phi2`

Compiler

Compiled 2 to 8 computations (-300% saved)

bsearch131.0ms (0.2%)

Memory

-11.4MiB live, 128.0MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
30.0ms	3.1015743843963485e-36	4.805505840525316e-36
84.0ms	-186945198344215040.0	-68445794779.07633

Samples

91.0ms	139×	1	valid
12.0ms	69×	0	valid

Compiler

Compiled 950 to 700 computations (26.3% saved)

Precisions

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

ival-cos: 39.0ms (41% of total)

ival-sin: 37.0ms (38.9% of total)

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

adjust: 6.0ms (6.3% of total)

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

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

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.1015743843963485e-36	4.805505840525316e-36
2.0ms	-186945198344215040.0	-68445794779.07633

Compiler

Compiled 1 613 to 947 computations (41.3% saved)

bsearch83.0ms (0.2%)

Memory

-9.2MiB live, 83.4MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.1015743843963485e-36	4.805505840525316e-36
76.0ms	-5.401151220051847	-8.165782673272001e-7

Samples

62.0ms	101×	1	valid
6.0ms	43×	0	valid

Compiler

Compiled 1 015 to 739 computations (27.2% saved)

Precisions

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

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

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

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

adjust: 5.0ms (7.9% of total)

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

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

bsearch133.0ms (0.2%)

Memory

0.7MiB live, 136.5MiB allocated; 9ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	predicate-same
1×	narrow-enough

Steps

Time	Left	Right
54.0ms	5.27865507427804e-105	1.9230109282978402e-103
69.0ms	-7.217845162363628e-36	-2.3585149278018713e-38

Samples

101.0ms	160×	1	valid
11.0ms	64×	0	valid

Compiler

Compiled 1 763 to 1 004 computations (43.1% saved)

Precisions

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

ival-sin: 46.0ms (45.4% of total)

ival-cos: 35.0ms (34.6% of total)

adjust: 8.0ms (7.9% of total)

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

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

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

bsearch93.0ms (0.2%)

Memory

17.8MiB live, 107.3MiB allocated; 24ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
84.0ms	3.4650544788722454e-93	2.427271482161559e-88
2.0ms	-7.217845162363628e-36	-2.3585149278018713e-38

Samples

63.0ms	102×	1	valid
6.0ms	42×	0	valid

Compiler

Compiled 2 249 to 1 276 computations (43.3% saved)

Precisions

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

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

ival-cos: 21.0ms (33.2% of total)

adjust: 5.0ms (7.9% of total)

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

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

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

bsearch111.0ms (0.2%)

Memory

-19.7MiB live, 125.0MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	9.242798940170356e-66	5.841452288655781e-65
51.0ms	-0.0013688979138317843	-8.788867149680942e-5

Samples

65.0ms	86×	1	valid
29.0ms	106×	0	valid

Compiler

Compiled 999 to 708 computations (29.1% saved)

Precisions

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

ival-cos: 40.0ms (48.9% of total)

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

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

adjust: 4.0ms (4.9% of total)

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

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

bsearch127.0ms (0.2%)

Memory

37.1MiB live, 129.4MiB allocated; 6ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
77.0ms	4.8758953290202e-73	5.083027974935177e-68
41.0ms	-7.16005317250721e+71	-4.1894296374046537e+71

Samples

99.0ms	141×	1	valid
10.0ms	67×	0	valid

Compiler

Compiled 911 to 713 computations (21.7% saved)

Precisions

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

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

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

adjust: 7.0ms (6.9% of total)

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

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

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

bsearch137.0ms (0.3%)

Memory

0.1MiB live, 138.1MiB allocated; 30ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
128.0ms	-4.066109197939682e+31	-13130133983540.479

Samples

110.0ms	106×	1	valid
10.0ms	54×	0	valid

Compiler

Compiled 1 395 to 1 088 computations (22% saved)

Precisions

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

ival-sin: 50.0ms (43.8% of total)

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

adjust: 11.0ms (9.6% of total)

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

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

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

bsearch6.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
2.0ms	-4.066109197939682e+31	-13130133983540.479

Compiler

Compiled 1 395 to 1 088 computations (22% saved)

bsearch70.0ms (0.1%)

Memory

1.2MiB live, 91.1MiB allocated; 16ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
54.0ms	1.7444939183422577e-48	9.001424045044541e-48
10.0ms	-4.066109197939682e+31	-13130133983540.479

Samples

45.0ms	62×	1	valid
4.0ms	34×	0	valid

Compiler

Compiled 1 149 to 882 computations (23.2% saved)

Precisions

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

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

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

adjust: 3.0ms (6.5% of total)

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

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

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

bsearch94.0ms (0.2%)

Memory

-14.2MiB live, 139.5MiB allocated; 25ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.7444939183422577e-48	9.001424045044541e-48
86.0ms	-70.35012969509536	-0.00023884921215913265

Samples

72.0ms	90×	1	valid
7.0ms	54×	0	valid

Compiler

Compiled 1 044 to 780 computations (25.3% saved)

Precisions

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

ival-cos: 32.0ms (43.3% of total)

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

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

adjust: 4.0ms (5.4% of total)

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

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

bsearch35.0ms (0.1%)

Memory

0.5MiB live, 42.7MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	1.7444939183422577e-48	9.001424045044541e-48
29.0ms	-70.35012969509536	-0.00023884921215913265

Samples

15.0ms	12×	0	valid
12.0ms	20×	1	valid

Compiler

Compiled 1 209 to 900 computations (25.6% saved)

Precisions

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

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

ival-cos: 5.0ms (19.9% of total)

ival-sin: 4.0ms (15.9% of total)

adjust: 1.0ms (4% of total)

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

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

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 188 to 915 computations (23% saved)

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 071 to 834 computations (22.1% saved)

bsearch24.0ms (0%)

Memory

-44.7MiB live, 8.7MiB allocated; 30ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 071 to 834 computations (22.1% saved)

bsearch142.0ms (0.3%)

Memory

42.4MiB live, 178.7MiB allocated; 19ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
51.0ms	0.025511113367773886	0.1516776521653243
83.0ms	-716276.6034586688	-0.0013688979138317843

Samples

91.0ms	112×	1	valid
32.0ms	128×	0	valid

Compiler

Compiled 1 197 to 909 computations (24.1% saved)

Precisions

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

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

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

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

adjust: 5.0ms (4.4% of total)

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

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

bsearch64.0ms (0.1%)

Memory

-20.7MiB live, 81.2MiB allocated; 10ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
40.0ms	0.025511113367773886	0.1516776521653243
19.0ms	-19489471.867630154	-16739393.554736571

Samples

42.0ms	50×	1	valid
11.0ms	62×	0	valid

Compiler

Compiled 563 to 440 computations (21.8% saved)

Precisions

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

ival-sin: 22.0ms (44.6% of total)

ival-cos: 18.0ms (36.5% of total)

adjust: 3.0ms (6.1% of total)

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

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	0.025511113367773886	0.1516776521653243
0.0ms	-19489471.867630154	-16739393.554736571

Compiler

Compiled 611 to 472 computations (22.7% saved)

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 125 to 888 computations (21.1% saved)

bsearch6.0ms (0%)

Memory

-38.0MiB live, 8.1MiB allocated; 2ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
3.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 278 to 969 computations (24.2% saved)

bsearch135.0ms (0.3%)

Memory

16.6MiB live, 165.1MiB allocated; 26ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
59.0ms	8.99516972275616e-62	5.0444086655234436e-61
69.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

105.0ms	159×	1	valid
11.0ms	81×	0	valid

Compiler

Compiled 1 380 to 1 035 computations (25% saved)

Precisions

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

ival-cos: 48.0ms (45.1% of total)

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

adjust: 8.0ms (7.5% of total)

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

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

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

bsearch5.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.99516972275616e-62	5.0444086655234436e-61
2.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Compiler

Compiled 1 335 to 990 computations (25.8% saved)

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	4.8758953290202e-73	5.083027974935177e-68
1.0ms	-70.35012969509536	-0.00023884921215913265

Compiler

Compiled 1 413 to 1 068 computations (24.4% saved)

bsearch141.0ms (0.3%)

Memory

-9.4MiB live, 130.0MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
103.0ms	3.0497859292756096e-13	6.813643283210216e-6
32.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

82.0ms	139×	1	valid
41.0ms	69×	0	valid

Compiler

Compiled 1 719 to 1 302 computations (24.3% saved)

Precisions

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

ival-cos: 65.0ms (56.5% of total)

ival-sin: 32.0ms (27.8% of total)

adjust: 7.0ms (6.1% of total)

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

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

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

bsearch129.0ms (0.2%)

Memory

6.0MiB live, 140.9MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
64.0ms	4.800895884909416e-51	2.1692018151825618e-46
58.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

99.0ms	161×	1	valid
11.0ms	79×	0	valid

Compiler

Compiled 1 735 to 1 256 computations (27.6% saved)

Precisions

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

ival-sin: 42.0ms (41.7% of total)

ival-cos: 35.0ms (34.8% of total)

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

adjust: 7.0ms (7% of total)

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

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

bsearch54.0ms (0.1%)

Memory

-14.0MiB live, 34.4MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
50.0ms	4.800895884909416e-51	2.1692018151825618e-46
1.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

43.0ms	43×	1	valid
3.0ms	21×	0	valid

Compiler

Compiled 1 727 to 1 248 computations (27.7% saved)

Precisions

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

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

ival-cos: 9.0ms (20.7% of total)

adjust: 2.0ms (4.6% of total)

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

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

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

bsearch145.0ms (0.3%)

Memory

47.1MiB live, 179.2MiB allocated; 12ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
68.0ms	1.3731252826833749e-59	5.998483915547403e-57
70.0ms	-1923699073.0785968	-19489471.867630154

Samples

111.0ms	144×	1	valid
16.0ms	96×	0	valid

Compiler

Compiled 1 420 to 1 054 computations (25.8% saved)

Precisions

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

ival-cos: 48.0ms (41% of total)

ival-sin: 46.0ms (39.3% of total)

adjust: 8.0ms (6.8% of total)

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

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

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

bsearch94.0ms (0.2%)

Memory

-17.7MiB live, 127.7MiB allocated; 15ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
20.0ms	61336971847412.81	69378397313545.055
68.0ms	-5.401151220051847	-8.165782673272001e-7

Samples

69.0ms	104×	1	valid
9.0ms	56×	0	valid

Compiler

Compiled 973 to 707 computations (27.3% saved)

Precisions

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

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

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

adjust: 5.0ms (7% of total)

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

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

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

bsearch99.0ms (0.2%)

Memory

-66.6MiB live, 72.4MiB allocated; 82ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	61336971847412.81	69378397313545.055
60.0ms	-5.401151220051847	-8.165782673272001e-7

Samples

50.0ms	81×	1	valid
4.0ms	31×	0	valid

Compiler

Compiled 1 054 to 779 computations (26.1% saved)

Precisions

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

ival-cos: 19.0ms (38.2% of total)

ival-sin: 18.0ms (36.2% of total)

adjust: 4.0ms (8% of total)

ival-mult!: 4.0ms (8% of total)

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

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

bsearch121.0ms (0.2%)

Memory

5.6MiB live, 143.4MiB allocated; 14ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
80.0ms	0.00020295434987770733	623.7852978900144
33.0ms	-70.35012969509536	-0.00023884921215913265

Samples

91.0ms	144×	1	valid
12.0ms	64×	0	valid

Compiler

Compiled 1 233 to 906 computations (26.5% saved)

Precisions

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

ival-cos: 39.0ms (41.2% of total)

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

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

adjust: 7.0ms (7.4% of total)

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

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

bsearch60.0ms (0.1%)

Memory

20.3MiB live, 67.9MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
0.0ms	61336971847412.81	69378397313545.055
56.0ms	-5.401151220051847	-8.165782673272001e-7

Samples

47.0ms	68×	1	valid
4.0ms	28×	0	valid

Compiler

Compiled 1 043 to 757 computations (27.4% saved)

Precisions

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

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

ival-sin: 15.0ms (37.9% of total)

adjust: 3.0ms (7.6% of total)

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

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

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

bsearch50.0ms (0.1%)

Memory

1.8MiB live, 46.8MiB allocated; 5ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
20.0ms	0.00020295434987770733	623.7852978900144
27.0ms	-70.35012969509536	-0.00023884921215913265

Samples

39.0ms	59×	1	valid
3.0ms	21×	0	valid

Compiler

Compiled 1 467 to 1 104 computations (24.7% saved)

Precisions

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

ival-cos: 15.0ms (39.6% of total)

ival-sin: 15.0ms (39.6% of total)

adjust: 3.0ms (7.9% of total)

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

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

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

bsearch175.0ms (0.3%)

Memory

26.7MiB live, 207.2MiB allocated; 26ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
76.0ms	3.0497859292756096e-13	6.813643283210216e-6
91.0ms	-100143339.16760147	-5.401151220051847

Samples

133.0ms	191×	1	valid
14.0ms	81×	0	valid

Compiler

Compiled 1 611 to 1 149 computations (28.7% saved)

Precisions

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

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

ival-cos: 50.0ms (37.5% of total)

ival-atan2: 10.0ms (7.5% of total)

adjust: 9.0ms (6.7% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.0497859292756096e-13	6.813643283210216e-6
1.0ms	-100143339.16760147	-5.401151220051847

Compiler

Compiled 1 737 to 1 149 computations (33.9% saved)

bsearch9.0ms (0%)

Memory

-39.0MiB live, 6.0MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.0497859292756096e-13	6.813643283210216e-6
1.0ms	-100143339.16760147	-5.401151220051847

Compiler

Compiled 1 431 to 1 032 computations (27.9% saved)

bsearch3.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	3.0497859292756096e-13	6.813643283210216e-6
1.0ms	-100143339.16760147	-5.401151220051847

Compiler

Compiled 1 539 to 1 086 computations (29.4% saved)

bsearch125.0ms (0.2%)

Memory

11.6MiB live, 153.6MiB allocated; 26ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
52.0ms	8.99516972275616e-62	5.0444086655234436e-61
67.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

102.0ms	153×	1	valid
8.0ms	55×	0	valid

Compiler

Compiled 1 197 to 894 computations (25.3% saved)

Precisions

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

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

ival-cos: 35.0ms (34.7% of total)

adjust: 7.0ms (6.9% of total)

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

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

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

bsearch173.0ms (0.3%)

Memory

-1.4MiB live, 199.1MiB allocated; 41ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
104.0ms	5.0444086655234436e-61	4.800895884909416e-51
61.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

139.0ms	196×	1	valid
11.0ms	76×	0	valid

Compiler

Compiled 1 832 to 1 316 computations (28.2% saved)

Precisions

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

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

ival-sin: 48.0ms (34.5% of total)

adjust: 9.0ms (6.5% of total)

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

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

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

bsearch87.0ms (0.2%)

Memory

27.9MiB live, 71.7MiB allocated; 8ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
1.0ms	8.99516972275616e-62	5.0444086655234436e-61
81.0ms	-7.114232191752424e-7	-2.207696599489898e-17

Samples

66.0ms	104×	1	valid
8.0ms	56×	0	valid

Compiler

Compiled 1 435 to 1 064 computations (25.9% saved)

Precisions

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

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

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

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

adjust: 5.0ms (7.4% of total)

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

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

bsearch99.0ms (0.2%)

Memory

-37.2MiB live, 100.9MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
77.0ms	5.0444086655234436e-61	4.800895884909416e-51
15.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

62.0ms	94×	1	valid
7.0ms	50×	0	valid

Compiler

Compiled 2 167 to 1 565 computations (27.8% saved)

Precisions

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

ival-sin: 23.0ms (36.2% of total)

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

ival-mult!: 12.0ms (18.9% of total)

adjust: 4.0ms (6.3% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	5.0444086655234436e-61	4.800895884909416e-51
2.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Compiler

Compiled 2 212 to 1 601 computations (27.6% saved)

bsearch122.0ms (0.2%)

Memory

21.9MiB live, 159.3MiB allocated; 23ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
82.0ms	2.271975180443845e-31	4.855031761904917e-26
34.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

97.0ms	145×	1	valid
8.0ms	63×	0	valid

Compiler

Compiled 1 953 to 1 410 computations (27.8% saved)

Precisions

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

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

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

adjust: 12.0ms (12.4% of total)

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

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

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

bsearch68.0ms (0.1%)

Memory

-2.1MiB live, 84.7MiB allocated; 11ms collecting garbage

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
63.0ms	5.0444086655234436e-61	4.800895884909416e-51
1.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Samples

53.0ms	84×	1	valid
4.0ms	28×	0	valid

Compiler

Compiled 1 927 to 1 353 computations (29.8% saved)

Precisions

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

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

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

adjust: 4.0ms (7.6% of total)

ival-mult!: 4.0ms (7.6% of total)

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

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

bsearch4.0ms (0%)

Memory

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

Algorithm

2×	binary-search

Stop Event

1×	narrow-enough
1×	narrow-enough

Steps

Time	Left	Right
2.0ms	5.0444086655234436e-61	4.800895884909416e-51
1.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Compiler

Compiled 1 847 to 1 303 computations (29.5% saved)

bsearch2.0ms (0%)

Memory

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

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
1.0ms	-3.3083416475098885e-60	-3.394203274604705e-66

Compiler

Compiled 837 to 573 computations (31.5% saved)

bsearch101.0ms (0.2%)

Memory

11.6MiB live, 106.4MiB allocated; 14ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
97.0ms	6.813643283210216e-6	50.95130996641514

Samples

81.0ms	108×	1	valid
6.0ms	36×	0	valid

Compiler

Compiled 864 to 591 computations (31.6% saved)

Precisions

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

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

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

adjust: 5.0ms (6.1% of total)

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

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

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

bsearch181.0ms (0.3%)

Memory

9.2MiB live, 98.6MiB allocated; 10ms collecting garbage

Algorithm

1×	binary-search

Stop Event

1×	narrow-enough

Steps

Time	Left	Right
177.0ms	-2.2791306697728824e+74	-9.582435588940066e+64

Samples

146.0ms	106×	1	valid
23.0ms	38×	0	valid

Compiler

Compiled 954 to 645 computations (32.4% saved)

Precisions

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

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

ival-cos: 46.0ms (28.1% of total)

adjust: 5.0ms (3.1% of total)

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

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

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

derivations2.5s (4.7%)

Memory

-18.6MiB live, 1 939.8MiB allocated; 1.7s collecting garbage

Stop Event

1×

fuel

Compiler

Compiled 6 301 to 578 computations (90.8% saved)

preprocess283.0ms (0.5%)

Memory: -8.7MiB live, 577.2MiB allocated; 58ms collecting garbage
Compiler: Compiled 12 650 to 1 190 computations (90.6% saved)

end0.0ms (0%)

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